|
| |
|
|
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; internal format)
|
|
|
|
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: A057543 A190650 A000059 * A190668 A132327 A100317
Adjacent sequences: A097050 A097051 A097052 * A097054 A097055 A097056
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 21 2004
|
|
|
EXTENSIONS
| Formula added by Max Alekseyev (maxale(AT)gmail.com), Mar 02 2011
|
| |
|
|
