A138039 Where record values occur in A138037.

0, 1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 25, 29, 31, 34, 35, 39, 43, 53, 63, 69, 71, 75, 79, 93, 99, 103, 105, 109, 127, 137, 165, 171, 191, 197, 203, 233, 247, 269, 281, 297, 339, 367, 375, 379, 383, 393, 423, 427, 469, 479, 497, 527, 531, 535, 539, 555, 581, 605

Offset

0,3

Comments

A138038(n) = A138037(a(n)) and A138037(m) < A138038(n) for m < a(n) .

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Mathematica

nxt[{n_, a_}]:={n+1, n+1+a/(2-Mod[a, 2])}; With[{nn=700}, DeleteDuplicates[Thread[{Range[0, nn], NestList[nxt, {0, 0}, nn][[;; , 2]]}], GreaterEqual[ #1[[2]], #2[[2]]]&]][[;; , 1]] (* Harvey P. Dale, Mar 31 2025 *)

Crossrefs

Sequence in context: A243497 A214577 A280994 * A289995 A192137 A192139

Adjacent sequences: A138036 A138037 A138038 * A138040 A138041 A138042

Keyword

nonn

Author

Reinhard Zumkeller, Mar 02 2008

Status

approved