A097052 First occurrence of n in A096036 or 0 if n does not appear.

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

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: A341322 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