OFFSET
2,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 2..797
PROG
(Haskell)
import Data.List (delete)
a253415 n = a253415_list !! (n-2)
a253415_list = f [2..] 1 where
f xs z = g xs where
g (y:ys) = if mod z' y > 0 then g ys else x : f xs' (z + y)
where xs'@(x:_) = delete y xs
z' = z + 2
-- Reinhard Zumkeller, Dec 31 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 31 2014
STATUS
editing