|
Search: id:A097052
|
|
|
| A097052 |
|
First occurrence of n in A096036 or 0 if n does not appear. |
|
+0 2
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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.
Adjacent sequences: A097049 A097050 A097051 this_sequence A097053 A097054 A097055
Sequence in context: A045357 A099357 A027038 this_sequence A102937 A045358 A128005
|
|
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
|