%I A097053
%S A097053 1,2,3,8,10,12,14,32,36,40,44,48,52,56,60,128,136,144,152,160,168,176,
%T A097053 184,192,200,208,216,224,232,240,248,512,528,544,560,576,592,608,624,
%U A097053 640,656,672,688,704,720,736,752,768,784,800,816,832,848,864,880,896
%N A097053 First occurrence of n in A097051 or 0 if n does not appear.
%F A097053 A097051: a(n) = floor(n/a(floor(n/2))); a(1) = 1.
%t A097053 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 A097053 Cf. A097051.
%Y A097053 Sequence in context: A028751 A057543 A000059 this_sequence A132327 A100317 
               A060697
%Y A097053 Adjacent sequences: A097050 A097051 A097052 this_sequence A097054 A097055 
               A097056
%K A097053 nonn
%O A097053 1,2
%A A097053 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com) and Robert G. Wilson 
               v (rgwv(AT)rgwv.com), Jul 21 2004