A350619 Record high values in A350877.

1, 3, 6, 8, 12, 16, 18, 28, 30, 44, 58, 70, 78, 86, 96, 116, 130, 148, 160, 182, 204, 220, 260, 312, 340, 380, 406, 474, 514, 538, 552, 556, 616, 656, 686, 786, 842, 878, 900, 918, 958, 982, 1000, 1092, 1190, 1272, 1290, 1378, 1428, 1432, 1540, 1612, 1776, 1880, 1946, 2126, 2226, 2284, 2290

Offset

1,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000 (first 408 terms from N. J. A. Sloane)

Mathematica

r = 0; j = 1; q = 2; {j}~Join~Reap[Do[If[EvenQ[j], Set[k, j/2], Set[k, j + q]; Set[q, NextPrime[q]]]; If[k > r, Sow[k]; r = k]; j = k, {i, 2, 645}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)

Crossrefs

Cf. A350877, A350615, A350616, A350617, A350618.

Sequence in context: A220001 A310138 A310139 * A341435 A301283 A288218

Adjacent sequences: A350616 A350617 A350618 * A350620 A350621 A350622

Keyword

nonn

Author

N. J. A. Sloane, Jan 23 2022

Status

approved