This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A004428 #14 Oct 26 2023 00:10:34 %S A004428 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, %T A004428 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, %U A004428 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 %N A004428 Geometric mean of digits of n (rounded down). %C A004428 a(n) = 0 for almost all n (in the sense of asymptotic density). - _Charles R Greathouse IV_, Jan 30 2023 %t A004428 A004428[n_] := Floor[GeometricMean[IntegerDigits[n]]] %o A004428 (PARI) A004428(n)=sqrtn(prod(i=1,#n=digits(n),n[i]),#n)\1 \\ _M. F. Hasler_, May 10 2015 %Y A004428 Cf. A004429, A007954, A257830. %K A004428 nonn,base %O A004428 0,3 %A A004428 _N. J. A. Sloane_