A344933 Record values of A046800.

0, 1, 2, 3, 4, 5, 6, 8, 9, 11, 12, 15, 17, 21, 24, 25, 29, 34, 36, 37, 39, 46, 51

Offset: 1

Author

Chai Wah Wu, Jun 02 2021

Keywords

• nonn
• hard
• more

Crossrefs

Cf. A046800, A344932.

Programs

Mathematica

DeleteDuplicates[Join[{0},PrimeNu/@(2^Range[200]-1)],GreaterEqual] (* The program generates the first 14 terms of the sequence. *) (* Harvey P. Dale, Dec 24 2022 *)