A030721 -id:A030721 - cp's OEIS frontend

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

Graph
List
Refs
Listen
History
Text
Internal format

Clark Kimberling

nonn

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

Cf. A030717, A030721.

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

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

cp's OEIS Frontend

A030722 Positions of records in A030717.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions