OFFSET
1,10
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
David A. Corneth, PARI link
Reinhard Zumkeller, Products of largest prime factors of numbers <= n.
FORMULA
MATHEMATICA
IntegerExponent[FoldList[Times, Array[FactorInteger[#][[-1, 1]] &, 100]], 10] (* Amiram Eldar, Apr 08 2024 *)
PROG
(PARI) gpf(n) = {my(p = factor(n)[, 1]); p[#p]; }
a(n) = valuation(prod(k = 2, n, gpf(k)), 10); \\ Amiram Eldar, Apr 08 2024
(PARI) \\ See link. David A. Corneth, Apr 08 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 06 2005
STATUS
approved