OFFSET
1,6
LINKS
MATHEMATICA
{0}~Join~Array[If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &[Apply[Times, Prime[FactorInteger[#][[All, -1]]]]] &, 101, 2] (* Michael De Vlieger, Apr 03 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 02 2022
STATUS
approved