A065193 Indices of record entries (A065192) in A065191.

1, 2, 3, 6, 7, 8, 11, 18, 21, 23, 34, 37, 38, 41, 48, 71, 92, 93, 98, 143, 153, 162, 173, 186, 202, 232, 246, 261, 291, 352, 458, 481, 503, 576, 577, 828, 831, 847, 1011, 1013, 1101, 1251, 1357, 1461, 1552, 1657, 1957, 2028, 2347, 2358, 2407, 3246, 3417, 3711, 3888, 3892

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[k]]]][[2, 1]] (* Jean-François Alcover, Jul 04 2022 *)

Crossrefs

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

Sequence in context: A116046 A069579 A327176 * A116047 A061885 A138683

Adjacent sequences: A065190 A065191 A065192 * A065194 A065195 A065196

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