A114053 Sum of the first n n-digit primes less n*10^(n-1).

1, 4, 11, 62, 153, 240, 409, 960, 729, 754, 1257, 1154, 2051, 3318, 3685, 4454, 9723, 4696, 7691, 6828, 9635, 10806, 9927, 14614, 18207, 22586, 23173, 30070, 27779, 32944, 36629, 36020, 54019, 57388, 52261, 53870, 52043, 52506, 59449, 60892, 83659, 65756, 95585

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

Cf. A000040, A119491.

Sequence in context: A246598 A242749 A303955 * A266386 A134823 A000880

Adjacent sequences: A114050 A114051 A114052 * A114054 A114055 A114056

Keyword

nonn,base

Author

Robert G. Wilson v, Aug 14 2006

Status

approved