

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



