|
%I #9 Mar 30 2012 18:50:44
%S 1,2,3,8,10,12,14,32,36,40,44,48,52,56,60,128,136,144,152,160,168,176,
%T 184,192,200,208,216,224,232,240,248,512,528,544,560,576,592,608,624,
%U 640,656,672,688,704,720,736,752,768,784,800,816,832,848,864,880,896
%N First occurrence of n in A097051.
%F For n>1, a(n) = A053644(n) * n / 2.
%t a[1] = 1; a[n_] := a[n] = Floor[ n / a[ Floor[n / 2]]]; t = Table[ a[n], {n, 1000}]; b[n_] := Block[{p = Position[t, n, 1, 1]}, If[p == {}, 0, p]]; Flatten[ Table[ b[n], {n, 60}]]
%Y Cf. A097051.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_ and _Robert G. Wilson v_, Jul 21 2004
%E Formula added by _Max Alekseyev_, Mar 02 2011
|
