|
Search: id:A097053
|
|
|
| A097053 |
|
First occurrence of n in A097051 or 0 if n does not appear. |
|
+0
2
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
A097051: a(n) = floor(n/a(floor(n/2))); a(1) = 1.
|
|
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: A028751 A057543 A000059 this_sequence A132327 A100317 A060697
Adjacent sequences: A097050 A097051 A097052 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
