A067112 - OEIS

%I #24 Feb 25 2018 15:10:15

%S 0,2,5,10,17,18,19,20,23,24,31,32,41,43,46,48,57,60,61,64,71,75,76,80,

%T 83,87,94,99,102,107,116,122,123,129,136,143,144,151,154,161,170,178,

%U 181,189,198,207,214,215,215,216,217,217,220,221,221,228,229,229,238,239

%N Let N = 2357111317192329313741434753..., the concatenation of the primes; a(n) = sum of first n digits of N.

%H Zak Seidov, <a href="/A067112/b067112.txt">Table of n, a(n) for n = 0..1000</a>

%e a(5) = 2+3+5+7+1 = 18.

%t 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 *)

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

%K easy,nonn,base

%O 0,2

%A _Amarnath Murthy_, Jan 08 2002

%E More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003