A387074 Indices of record high points in A386482.

1, 2, 3, 4, 6, 7, 10, 12, 18, 19, 25, 27, 30, 32, 45, 53, 58, 75, 77, 116, 124, 127, 143, 145, 190, 196, 197, 208, 237, 288, 311, 321, 369, 454, 480, 685, 833, 838, 1035, 1089, 1207, 1290, 1426, 1498, 1533, 2080, 2668, 2785, 2888, 3031, 3782, 4003, 4965, 5748

Offset: 1

Author

Michael De Vlieger, Aug 15 2025

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..102

Crossrefs

Cf. A386482, A387073.

Programs

Mathematica

Block[{c, j, k, m, p, r, nn},
  nn = 6000; c[] := False; m[] := 1; j = 2; c[1] = c[2] = True; r = 0;
  {1, 2}~Join~Monitor[Reap[Do[
    If[PrimePowerQ[j],
      Set[{p, k, m}, {#1, #1^(#2 - 1), #1^(#2 - 1)}] & @@
        FactorInteger[j][[1]]; While[And[c[k*p], k != 0], k--];
        If[k == 0, k = m; While[c[k*p], k++]]; k *= p,
      k = j - 1; While[And[Or[c[k], CoprimeQ[j, k]], k != 1], k--];
        If[k == 1, k += j; While[Or[c[k], CoprimeQ[j, k] ], k++] ] ];
    If[k > r, r = k; Sow[n]];
    Set[{c[k], j}, {True, k}], {n, 3, nn}] ][[-1, 1]], n] ]