[go: up one dir, main page]

login
A064930
Inverse square of A034175 considered as a permutation of the nonnegative integers (which it is conjectured to be).
1
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,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[b[b[n]], {n, 0, 100}]
CROSSREFS
Sequence in context: A216292 A250295 A071217 * A158607 A070699 A065454
KEYWORD
nonn,easy
AUTHOR
Dean Hickerson, Oct 14, 2001
STATUS
approved