login
A064929
Square of A034175 considered as a permutation of the nonnegative integers (which it is conjectured to be).
1
0, 1, 6, 21, 14, 20, 33, 10, 15, 2, 16, 3, 4, 11, 29, 31, 43, 22, 53, 46, 24, 39, 36, 78, 7, 9, 52, 23, 44, 30, 41, 12, 13, 56, 19, 48, 26, 37, 34, 80, 5, 35, 18, 57, 42, 28, 91, 38, 27, 47, 64, 88, 119, 168, 70, 63, 71, 17, 8, 61, 83, 100, 94, 40, 58, 73, 123, 101, 85, 50
OFFSET
0,3
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[a[a[n]], {n, 0, 100}]
CROSSREFS
Cf. A034175.
Sequence in context: A133885 A170867 A321776 * A298266 A302202 A200831
KEYWORD
nonn,easy
AUTHOR
Dean Hickerson, Oct 14, 2001
STATUS
approved