|
|
A030722
|
|
Positions of records in A030717.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|