|
| |
|
|
A097052
|
|
First occurrence of n in A096036 or 0 if n does not appear.
|
|
1
|
|
|
|
1, 2, 5, 7, 19, 17, 25, 29, 0, 73, 65, 67, 99, 97, 113, 121, 0, 0, 301, 289, 0, 257, 265, 277, 393, 401, 421, 385, 451, 449, 481, 497, 0, 0, 0, 0, 0, 1201, 1161, 1153, 0, 0, 1025, 1033, 1059, 1057, 1105, 1129, 0, 1569, 1613, 1601, 1681, 1697, 1537, 1541, 1801, 1825
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
Not appearing in A096036 are 9, 17, 18, 21, 33, 34, 35, 36, 37, 41, 42, 49, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 77, 81, 82, 83, 84, 85, 97, 98, 105, ...,.
|
|
|
LINKS
|
Table of n, a(n) for n=1..58.
|
|
|
FORMULA
|
A096036: a(n)= ceiling(n/a(ceiling(n/2))) with a(1) = 1.
|
|
|
MATHEMATICA
|
a[1] = 1; a[n_] := a[n] = Ceiling[ n / a[ Ceiling[n/2]]]; t = Table[ a[n], {n, 2000}]; b[n_] := Block[{p = Position[t, n, 1, 1]}, If[p == {}, 0, p]]; Flatten[ Table[ b[n], {n, 60}]]
|
|
|
CROSSREFS
|
Cf. A096036.
Sequence in context: A027038 A173929 A173299 * A102937 A045358 A128005
Adjacent sequences: A097049 A097050 A097051 * A097053 A097054 A097055
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Reinhard Zumkeller and Robert G. Wilson v, Jul 21 2004
|
|
|
STATUS
|
approved
|
| |
|
|
