A097053 - OEIS

%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