A066098 Sum of digits of primorial(n) (A002110).

2, 6, 3, 3, 6, 6, 12, 48, 33, 48, 30, 48, 42, 51, 93, 87, 75, 111, 111, 132, 114, 141, 156, 150, 150, 156, 183, 213, 240, 201, 210, 222, 192, 210, 258, 249, 312, 267, 282, 348, 300, 336, 375, 312, 372, 390, 381, 363, 366, 411, 363, 366, 375, 399, 447

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n=1..1000

Formula

a(n) = C*n*log(n) asymptotically with C=1.9...

If the digits are supposed equidistributed, a(n)=9/(2*log(10))*n*log(n) asymptotically, where 9/(2log(10))=1.9543251685... - Benoit Cloitre, Jan 05 2002

Mathematica

Table[ Apply[ Plus, IntegerDigits[ Product[ Prime[i], {i, 1, n} ]]], {n, 1, 55} ]

Prog

(PARI) SumD(x)= { local(s=0); while (x>9, s+=x%10; x\=10); return(s + x) } { p=1; for (n=1, 1000, p*=prime(n); s=SumD(p); write("b066098.txt", n, " ", s) ) }  \\ Harry J. Smith, Nov 13 2009

Crossrefs

Cf. A002110.

Sequence in context: A218256 A198418 A086360 * A299160 A123733 A261069

Adjacent sequences: A066095 A066096 A066097 * A066099 A066100 A066101

Keyword

nonn,base

Author

Benoit Cloitre, Dec 30 2001

Extensions

More terms from Robert G. Wilson v, Dec 31 2001

OFFSET changed from 0,1 to 1,1 by Harry J. Smith, Nov 13 2009

Status

approved