OFFSET
1,2
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lpf[n_]:=Module[{fi=FactorInteger[n]}, Times@@PadRight[{}, Total[ fi[[All, 2]]], fi[[1, 1]]]]; Array[lpf, 80] (* Harvey P. Dale, Apr 14 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 05 2002
STATUS
approved