login
Sum of digits of primorial(n) (A002110).
1

%I #12 Jul 09 2015 21:59:34

%S 2,6,3,3,6,6,12,48,33,48,30,48,42,51,93,87,75,111,111,132,114,141,156,

%T 150,150,156,183,213,240,201,210,222,192,210,258,249,312,267,282,348,

%U 300,336,375,312,372,390,381,363,366,411,363,366,375,399,447

%N Sum of digits of primorial(n) (A002110).

%H Harry J. Smith, <a href="/A066098/b066098.txt">Table of n, a(n) for n=1..1000</a>

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

%F 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

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

%o (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

%Y Cf. A002110.

%K nonn,base

%O 1,1

%A _Benoit Cloitre_, Dec 30 2001

%E More terms from _Robert G. Wilson v_, Dec 31 2001

%E OFFSET changed from 0,1 to 1,1 by _Harry J. Smith_, Nov 13 2009