OFFSET
0,3
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..10000 (terms 0..1700 from Zak Seidov, terms 1701..8691 from Peter Pein)
MATHEMATICA
a[0]=b[0]=0; lst={0}; For[n=1, n<250, n++, For[s=Ceiling[Sqrt[a[n-1]]], MemberQ[lst, s^2-a[n-1]], s++, Null]; b[a[n]=s^2-a[n-1]]=n; AppendTo[lst, a[n]]]; Table[b[n], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Dean Hickerson, Oct 14 2001
STATUS
approved