A387073 Record high points in A386482.

1, 2, 4, 6, 9, 12, 14, 21, 25, 30, 33, 36, 38, 57, 65, 68, 93, 94, 141, 148, 150, 174, 177, 236, 244, 247, 260, 316, 393, 415, 428, 515, 635, 685, 951, 1055, 1067, 1315, 1388, 1516, 1639, 1828, 1903, 1969, 2841, 3235, 3342, 3414, 3592, 4516, 4936, 5948, 7444, 7652

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. A386462, A387074.

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[k]];
    Set[{c[k], j}, {True, k}], {n, 3, nn}] ][[-1, 1]], n] ]