OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
EXAMPLE
45 = 3^2 * 5^1. So a(45) = 2! + 1! = 3.
MATHEMATICA
f[n_] := Block[{fi = Last@Transpose@FactorInteger@n}, Plus @@ (fi!)]; Array[f, 101] (* Robert G. Wilson v, Dec 27 2005 *)
PROG
(PARI) A112623(n) = { my(f = factor(n)); my(s = 0); for (k=1, #f~, s = s + f[k, 2]!; ); s; } \\ Antti Karttunen, May 25 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 25 2005
EXTENSIONS
More terms from Robert G. Wilson v, Dec 27 2005
STATUS
approved