OFFSET
1,4
LINKS
FORMULA
MATHEMATICA
a[n_] := Max[IntegerExponent[n, {2, 3, 5}]]; Array[a, 100]
PROG
(PARI) a(n) = max(max(valuation(n, 2), valuation(n, 3)), valuation(n, 5));
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Aug 19 2024
STATUS
approved