|
%I #8 Jun 24 2014 01:08:18
%S 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,
%T 102,36,48,45,14,29,15,87,6,38,41,22,37,47,21,63,30,44,16,28,103,19,
%U 49,35,112,69,71,26,18,85,79,33,43,64,125,116,59,181,55,50,105,104,106
%N Inverse square of A034175 considered as a permutation of the nonnegative integers (which it is conjectured to be).
%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[b[n]], {n, 0, 100}]
%K nonn,easy
%O 0,3
%A _Dean Hickerson_, Oct 14, 2001
|
