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

Links

Table of n, a(n) for n=1..23.

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

Crossrefs

Cf. A046800, A344932.

Sequence in context: A030789 A030749 A049808 * A191886 A184115 A050418

Adjacent sequences: A344930 A344931 A344932 * A344934 A344935 A344936

Keyword

nonn,hard,more

Author

Chai Wah Wu, Jun 02 2021

Status

approved