A067112 Let N = 2357111317192329313741434753..., the concatenation of the primes; a(n) = sum of first n digits of N.
0, 2, 5, 10, 17, 18, 19, 20, 23, 24, 31, 32, 41, 43, 46, 48, 57, 60, 61, 64, 71, 75, 76, 80, 83, 87, 94, 99, 102, 107, 116, 122, 123, 129, 136, 143, 144, 151, 154, 161, 170, 178, 181, 189, 198, 207, 214, 215, 215, 216, 217, 217, 220, 221, 221, 228, 229, 229, 238, 239
Offset: 0
Examples
a(5) = 2+3+5+7+1 = 18.
Links
- Zak Seidov, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
s=0;ss={0};Do[id=IntegerDigits[Prime[k]];Do[AppendTo[ss,s=s+id[[i]]],{i,Length[id]}],{k,100}];ss (* Zak Seidov, Jan 23 2015 *)
-
PARI
{s=0;print1(0", ");for(k=1,100,id=digits(prime(k));for(i=1,# id,print1(s=s+id[i]", ")))} \\ Zak Seidov, Jan 24 2015
Extensions
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003