

A064929


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


1



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;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS

Table of n, a(n) for n=0..69.
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[n1]]], MemberQ[lst, s^2a[n1]], s++, Null]; b[a[n]=s^2a[n1]]=n; AppendTo[lst, a[n]]]; Table[a[a[n]], {n, 0, 100}]


CROSSREFS

Sequence in context: A133885 A170867 A321776 * A298266 A302202 A200831
Adjacent sequences: A064926 A064927 A064928 * A064930 A064931 A064932


KEYWORD

nonn,easy


AUTHOR

Dean Hickerson, Oct 14, 2001


STATUS

approved



