

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..56.


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: A000059 A216761 A276559 * A190668 A250037 A132327
Adjacent sequences: A097050 A097051 A097052 * A097054 A097055 A097056


KEYWORD

nonn


AUTHOR

Reinhard Zumkeller and Robert G. Wilson v, Jul 21 2004


EXTENSIONS

Formula added by Max Alekseyev, Mar 02 2011


STATUS

approved



