OFFSET
1,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Module[{f = FactorInteger[n]}, n*(f[[-1, 1]] + 1)^(f[[-1, 2]] - 1)/f[[-1, 1]]^f[[-1, 2]]]; a[1] = 1; Array[a, 100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar and N. J. A. Sloane, Feb 11 2022
STATUS
approved