A388422 Geometric mean of the primes with n decimal digits, rounded to nearest integer.

4, 42, 447, 4563, 46005, 462240, 4641742, 46567508, 466794560, 4676700011, 46837684237

Offset

1,1

Links

Table of n, a(n) for n=1..11.

Mathematica

a[n_]:=Module[{plim=PrimePi[NextPrime[10^n, -1]], pllim=PrimePi[NextPrime[10^(n-1)]]}, Round[GeometricMean[Prime[Range[pllim, plim]]]]]; Array[a, 7] (* James C. McMahon, Sep 17 2025 *)

Crossrefs

Cf. A309329, A388420, A388421, A388423.

Sequence in context: A046719 A366819 A335776 * A092800 A370282 A268542

Adjacent sequences: A388419 A388420 A388421 * A388423 A388424 A388425

Keyword

nonn,base,more

Author

Hugo Pfoertner, Sep 17 2025

Status

approved