OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
John Mason, Table of n, a(n) for n = 1..722392 [10 megabytes]
John Mason, Table of n, a(n) for n = 1..2000000 [31 megabytes]
John Mason, Ten million terms (zipped file)
PROG
(Haskell)
import Data.List (delete); import Data.List.Ordered (isect)
a256405 n = a256405_list !! (n-1)
a256405_list = 2 : 3 : f (3:[5..]) 4 where
f zs@(z:_) x = z : f (delete y zs) y where
y = head $ isect (a027750_row' (x ^ 2 - 1)) zs
-- Reinhard Zumkeller, Apr 01 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 01 2015
STATUS
approved