|
|
A064928
|
|
Inverse of A034175 considered as a permutation of the nonnegative integers (which it is conjectured to be).
|
|
3
|
|
|
0, 1, 11, 2, 7, 8, 3, 12, 40, 13, 4, 9, 24, 25, 10, 5, 14, 41, 19, 42, 15, 6, 35, 26, 31, 32, 27, 36, 47, 16, 43, 20, 102, 21, 44, 17, 48, 37, 28, 33, 58, 57, 34, 29, 38, 49, 18, 45, 22, 103, 79, 104, 23, 46, 75, 50, 39, 30, 63, 116, 59, 60, 115, 64, 55, 70, 51, 74, 109
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|