login
Sum(prime(k)*10^(k),k=1..n).
0

%I #8 Dec 30 2023 16:30:06

%S 0,20,320,5320,75320,1175320,14175320,184175320,2084175320,

%T 25084175320,315084175320,3415084175320,40415084175320,

%U 450415084175320,4750415084175320,51750415084175320,581750415084175320

%N Sum(prime(k)*10^(k),k=1..n).

%p seq( ( sum((ithprime(x)*10^(x),x=1..a))),a=1..20);

%t Accumulate[Join[{0},Table[Prime[k]10^k,{k,30}]]] (* _Harvey P. Dale_, Dec 18 2016 *)

%K nonn

%O 0,2

%A _Jorge Coveiro_, Dec 22 2004