login
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
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, ...,.
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
KEYWORD
nonn
AUTHOR
STATUS
approved