A140528 Sum of digits of Mersenne prime exponents.

2, 3, 5, 7, 4, 8, 10, 4, 7, 17, 8, 10, 8, 13, 19, 7, 13, 13, 14, 13, 32, 23, 8, 29, 11, 16, 28, 23, 10, 19, 19, 38, 32, 37, 38, 29, 23, 41, 37, 28, 31, 41, 25, 38, 41, 28, 26

Offset

1,1

Links

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

Formula

a(n) = A007953(A000043(n)). - Michel Marcus, Jul 15 2021

Example

Since A000043(15) = 1279, a(15) = 1+2+7+9 = 19. - Timothy L. Tiffin, Jul 14 2021

Mathematica

Table[Plus @@ IntegerDigits[e], {e, MersennePrimeExponent[Range[47]]}] (* Amiram Eldar, Jul 16 2021 *)

Crossrefs

Cf. A000043, A007953.

Sequence in context: A126049 A291603 A082331 * A065037 A366303 A366030

Adjacent sequences: A140525 A140526 A140527 * A140529 A140530 A140531

Keyword

nonn,base

Author

Edmund Algeo, Jul 03 2008

Extensions

a(39)-a(40) corrected by and a(41)-a(47) from Timothy L. Tiffin, Jul 14 2021

Status

approved