| 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
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
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[b[b[n]], {n, 0, 100}]
|
|
CROSSREFS
|
Sequence in context: A043457 A031078 A071217 this_sequence A070699 A065454 A008558
Adjacent sequences: A064927 A064928 A064929 this_sequence A064931 A064932 A064933
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Dean Hickerson (dean(AT)math.ucdavis.edu), Oct 14, 2001
|
|
