OFFSET
1,4
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Max[FactorInteger[1 + n * Times @@ FactorInteger[n][[;; , 1]]][[;; , 2]]]; Array[a, 100] (* Amiram Eldar, Sep 07 2024 *)
PROG
(Haskell)
a078316 = a051903 . a078310 -- Reinhard Zumkeller, Jul 23 2013
(PARI) a(n) = vecmax(factor(1 + n * vecprod(factorint(n)[, 1]))[, 2]); \\ Amiram Eldar, Sep 07 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 23 2002
STATUS
approved