OFFSET
1,4
COMMENTS
Alternatively, if n = prime(i_1) * ... * prime(i_k), then a(n) is the numerator of 1/i_1! + ... + 1/i_k!.
LINKS
MATHEMATICA
Table[Total[Cases[If[n==1, {}, FactorInteger[n]], {p_, k_}:>k/PrimePi[p]!]], {n, 100}]//Numerator
PROG
(PARI) A325704(n) = { my(f=factor(n)); numerator(sum(i=1, #f~, f[i, 2]/(primepi(f[i, 1])!))); }; \\ Antti Karttunen, Nov 17 2019
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Gus Wiseman, May 18 2019
STATUS
approved