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,3

Links

Table of n, a(n) for n=0..69.

Index entries for sequences that are permutations of the natural numbers

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

Adjacent sequences: A064926 A064927 A064928 * A064930 A064931 A064932

Keyword

nonn,easy

Author

Dean Hickerson, Oct 14, 2001

Status

approved