OFFSET
1,1
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..26
MATHEMATICA
a[n_]:=Module[{plim=PrimePi[NextPrime[10^n, -1]], pllim=PrimePi[NextPrime[10^(n-1)]]}, Round[Mean[Prime[Range[pllim, plim]]]]]; Array[a, 8] (* James C. McMahon, Sep 17 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Hugo Pfoertner, Sep 17 2025
STATUS
approved
