A064929 Square of A034175 considered as a permutation of the nonnegative integers (which it is conjectured to be).

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

Author

Dean Hickerson, Oct 14 2001

Keywords

• nonn
• easy

Links

• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A034175.

Programs

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}]