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