A064930 Inverse square of A034175 considered as a permutation of the nonnegative integers (which it is conjectured to be).

0, 1, 9, 11, 12, 40, 2, 24, 58, 25, 7, 13, 31, 32, 4, 8, 10, 57, 42, 34, 5, 3, 17, 27, 20, 102, 36, 48, 45, 14, 29, 15, 87, 6, 38, 41, 22, 37, 47, 21, 63, 30, 44, 16, 28, 103, 19, 49, 35, 112, 69, 71, 26, 18, 85, 79, 33, 43, 64, 125, 116, 59, 181, 55, 50, 105, 104, 106

Offset: 0

Author

Dean Hickerson, Oct 14 2001

Keywords

• nonn
• easy

Links

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

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[b[b[n]], {n, 0, 100}]