|
%I #22 Mar 03 2019 01:57:31
%S 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,
%T 27,36,47,16,43,20,102,21,44,17,48,37,28,33,58,57,34,29,38,49,18,45,
%U 22,103,79,104,23,46,75,50,39,30,63,116,59,60,115,64,55,70,51,74,109
%N Inverse of A034175 considered as a permutation of the nonnegative integers (which it is conjectured to be).
%H Robert G. Wilson v, <a href="/A064928/b064928.txt">Table of n, a(n) for n = 0..10000</a> (terms 0..1700 from Zak Seidov, terms 1701..8691 from Peter Pein)
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%t 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}]
%Y Cf. A034175.
%K nonn,easy
%O 0,3
%A _Dean Hickerson_, Oct 14 2001
|
