login
A065192
Record entries in A065191.
7
1, 4, 8, 16, 18, 19, 40, 50, 63, 66, 80, 109, 128, 155, 227, 282, 297, 373, 460, 508, 561, 644, 691, 810, 930, 1005, 1198, 1213, 1482, 1779, 1902, 2033, 2296, 3011, 3223, 3305, 4134, 5086, 5100, 5839, 5943, 5950, 7631, 8273, 8459, 10331, 10871, 10979, 11314, 11350
OFFSET
1,2
LINKS
MATHEMATICA
nmax = 20000;
A065191 = Reap[Do[pos = n; Do[pos -= k (-1)^Quotient[pos, k], {k, n, 1, -1}]; pos -= If[Mod[n, 4] < 2, 1, -1]; Sow[pos], {n, 1, nmax}]][[2, 1]];
record = 0;
Reap[For[k = 1, k <= nmax, k++, If[A065191[[k]] > record, record = A065191[[k]]; Sow[record]]]][[2, 1]] (* Jean-François Alcover, Jul 04 2022 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 19 2001
EXTENSIONS
Extended by Charlie Neder, Feb 04 2019
STATUS
approved