OFFSET
1,2
COMMENTS
Conjectured to be a permutation of the odd numbers.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
s={1}; Do[n = Last@ s; a=2; While[(b = 2*a^2 - n) <= 0 || MemberQ[s, b], a++]; AppendTo[s, b], {100}]; s (* Giovanni Resta, Jun 23 2015 *)
PROG
(PARI) v=[1]; n=1; while(#v<100, s=(n+v[#v])/2; if(type(s)=="t_INT", if(issquare(s)&&!vecsearch(vecsort(v), n), v=concat(v, n); n=0)); n++); v
(Haskell)
import Data.List (delete)
a259260 n = a259260_list !! (n-1)
a259260_list = 1 : f 1 [3, 5 ..] where
f x zs = g zs where
g (y:ys) = if a010052 ((x + y) `div` 2) == 1
then y : f y (delete y zs) else g ys
-- Reinhard Zumkeller, Jun 29 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Jun 22 2015
STATUS
approved