%I #2 Mar 30 2012 17:30:27
%S 2,57,1111,17024,224155,2674957,31352962,363506969,4127383480
%N Sum of digits of first 10^n primes.
%t NextPrime[ n_Integer ] := Module[ {k}, k = n + 1; While[ ! PrimeQ[ k ], k++ ]; k ]; c = d = p = q = 0; Do[ While[ d++; d <= 10^n, q = NextPrime[ q ]; p = p + Apply[ Plus, RealDigits[ q ][ [ 1 ] ] ]; If[ PrimeQ[ p ], c++ ] ]; d--; Print[ p ], {n, 0, 10}
%Y Cf. A051351, A057573.
%K nonn,base
%O 0,1
%A _Robert G. Wilson v_, Nov 27 2000
|