| 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
(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[a[a[n]], {n, 0, 100}]
|
|
CROSSREFS
|
Sequence in context: A000388 A069257 A133885 this_sequence A102993 A020880 A046467
Adjacent sequences: A064926 A064927 A064928 this_sequence A064930 A064931 A064932
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Dean Hickerson (dean(AT)math.ucdavis.edu), Oct 14, 2001
|
|
