A030722 Positions of records in A030717.

1, 3, 6, 11, 16, 20, 25, 36, 44, 45, 53, 63, 75, 88, 104, 120, 140, 163, 188, 216, 247, 280, 316, 354, 395, 438, 483, 530, 580, 633, 689, 749, 811, 876, 945, 1017, 1095, 1178, 1264, 1352, 1444, 1539, 1638, 1743, 1853, 1967, 2084, 2206, 2331, 2461, 2597, 2737

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A030717, A030721.

Programs

Mathematica

nn = 120; c[] = 0; r = k = a[1] = c[1] = 1; {1}~Join~Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]]; If[r < #, Set[r, #]; Sow[j + k]] &[a[j + k]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {nn}]][[-1, -1]] (* _Michael De Vlieger, Nov 15 2022 *)

Extensions

More terms and simpler title from Sean A. Irvine, Apr 08 2020