A065193 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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.