login
A097053
First occurrence of n in A097051.
1
1, 2, 3, 8, 10, 12, 14, 32, 36, 40, 44, 48, 52, 56, 60, 128, 136, 144, 152, 160, 168, 176, 184, 192, 200, 208, 216, 224, 232, 240, 248, 512, 528, 544, 560, 576, 592, 608, 624, 640, 656, 672, 688, 704, 720, 736, 752, 768, 784, 800, 816, 832, 848, 864, 880, 896
OFFSET
1,2
FORMULA
For n>1, a(n) = A053644(n) * n / 2.
MATHEMATICA
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}]]
CROSSREFS
Cf. A097051.
Sequence in context: A340301 A216761 A276559 * A190668 A250037 A360940
KEYWORD
nonn
AUTHOR
EXTENSIONS
Formula added by Max Alekseyev, Mar 02 2011
STATUS
approved