login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
Sequence in context: A310107 A099951 A108175 * A030720 A310108 A310109
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms and simpler title from Sean A. Irvine, Apr 08 2020
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 13:42 EDT 2024. Contains 371254 sequences. (Running on oeis4.)