%I #13 Jan 23 2022 10:49:59
%S 1,3,6,8,12,16,18,28,30,44,58,70,78,86,96,116,130,148,160,182,204,220,
%T 260,312,340,380,406,474,514,538,552,556,616,656,686,786,842,878,900,
%U 918,958,982,1000,1092,1190,1272,1290,1378,1428,1432,1540,1612,1776,1880,1946,2126,2226,2284,2290
%N Record high values in A350877.
%H Michael De Vlieger, <a href="/A350619/b350619.txt">Table of n, a(n) for n = 1..10000</a> (first 408 terms from N. J. A. Sloane)
%t 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 *)
%Y Cf. A350877, A350615, A350616, A350617, A350618.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Jan 23 2022