A244060 Sum of digits of (2^n)!.

1, 2, 6, 9, 63, 108, 324, 828, 1989, 4635, 10845, 24363, 54279, 118827, 258705, 565389, 1216134, 2611359, 5584518, 11875977, 25184205, 53209728, 112069377, 235502361, 493827687, 1033041267, 2156974227, 4495662081, 9355185828, 19437382512, 40329016200

Offset

0,2

Links

Table of n, a(n) for n=0..30.

Formula

a(n) = A007953(A000722(n)). - Michel Marcus, Jun 19 2014

Example

If n=4, 2^4! = 16! = 20922789888000, with digit sum 63. - N. J. A. Sloane, Jun 18 2014

Mathematica

f[n_] := Total[ IntegerDigits[ (2^n)!]]; Array[f, 20, 0]

Prog

(PARI) a(n) = sumdigits((2^n)!); \\ Michel Marcus, Oct 25 2021
(Python)
from math import factorial
def A244060(n): return sum(int(d) for d in str(factorial(2**n))) # Chai Wah Wu, Oct 26 2021

Crossrefs

Cf. A000722, A007953.

Cf. A116988, A244061.

Sequence in context: A240761 A342317 A117541 * A333185 A236106 A095105

Adjacent sequences: A244057 A244058 A244059 * A244061 A244062 A244063

Keyword

nonn,base

Author

Robert G. Wilson v, Jun 18 2014

Extensions

a(26)-a(30) from Chai Wah Wu, Oct 25 2021

Status

approved