login
This site is supported by donations to The OEIS Foundation.

 

Logo

The OEIS Foundation is grateful to everyone who made a donation during our Annual Appeal.     Visit the new and spectacular Pictures from the OEIS page!

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 12 17:23 EST 2016. Contains 268227 sequences.