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