A004428 Geometric mean of digits of n (rounded down).

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 1, 1, 2, 2, 2, 2, 2, 3, 0, 1, 2, 2, 2, 3, 3, 3, 4, 4, 0, 1, 2, 3, 3, 3, 4, 4, 4, 5, 0, 2, 2, 3, 4, 4, 4, 5, 5, 6, 0, 2, 3, 3, 4, 5, 5, 5, 6, 6, 0, 2, 3, 4, 4, 5, 6, 6, 6, 7, 0, 2, 3, 4, 5, 5, 6, 7, 7, 7, 0, 2, 4, 4, 5, 6, 6, 7, 8, 8, 0, 3, 4, 5, 6, 6, 7, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 0

Offset

0,3

Comments

a(n) = 0 for almost all n (in the sense of asymptotic density). - Charles R Greathouse IV, Jan 30 2023

Links

Table of n, a(n) for n=0..107.

Mathematica

A004428[n_] := Floor[GeometricMean[IntegerDigits[n]]]

Prog

(PARI) A004428(n)=sqrtn(prod(i=1, #n=digits(n), n[i]), #n)\1 \\ M. F. Hasler, May 10 2015

Crossrefs

Cf. A004429, A007954, A257830.

Sequence in context: A054054 A115353 A031298 * A004429 A338379 A004426

Adjacent sequences: A004425 A004426 A004427 * A004429 A004430 A004431

Keyword

nonn,base

Author

N. J. A. Sloane

Status

approved