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,2

Links

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

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 *)

Crossrefs

Cf. A030717, A030721.

Sequence in context: A310107 A099951 A108175 * A030720 A310108 A310109

Adjacent sequences: A030719 A030720 A030721 * A030723 A030724 A030725

Keyword

nonn

Author

Clark Kimberling

Extensions

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

Status

approved