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

Author

N. J. A. Sloane, Jan 23 2022

Keywords

• nonn

Links

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

Crossrefs

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

Programs

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 *)