Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Jul 04 2022 09:31:58
%S 1,4,8,16,18,19,40,50,63,66,80,109,128,155,227,282,297,373,460,508,
%T 561,644,691,810,930,1005,1198,1213,1482,1779,1902,2033,2296,3011,
%U 3223,3305,4134,5086,5100,5839,5943,5950,7631,8273,8459,10331,10871,10979,11314,11350
%N Record entries in A065191.
%H Charlie Neder, <a href="/A065192/b065192.txt">Table of n, a(n) for n = 1..77</a>
%t nmax = 20000;
%t 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]];
%t record = 0;
%t 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 *)
%Y Cf. A065191, A065193, A065194, A065195, A065196, A065197.
%K nice,nonn
%O 1,2
%A Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 19 2001
%E Extended by _Charlie Neder_, Feb 04 2019