A065192 Record entries in A065191.

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

Charlie Neder, Table of n, a(n) for n = 1..77

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

Cf. A065191, A065193, A065194, A065195, A065196, A065197.

Sequence in context: A072603 A123535 A312765 * A161994 A195065 A312766

Adjacent sequences: A065189 A065190 A065191 * A065193 A065194 A065195

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