OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..300
MAPLE
a:= proc(n) option remember; local i, p, r;
p:= 10^(n-1); r:= -n*p;
for i to n do p:= nextprime(p); r:= r+p od; r
end:
seq(a(n), n=1..50); # Alois P. Heinz, Feb 26 2021
MATHEMATICA
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ@k, k++ ]; k]; f[n_] := Plus @@ Rest@NestList[NextPrim, 10^(n - 1), n] - n*10^(n - 1); Array[f, 39]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Aug 14 2006
STATUS
approved