OFFSET
0,5
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..20000
MATHEMATICA
Array[If[PrimeQ@ #, 1, Total@ Apply[Times, FactorInteger@ #, 1]] &, 81] (* Michael De Vlieger, Feb 25 2018 *)
PROG
(PARI)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, May 27 2005
EXTENSIONS
Edited, corrected and extended by Franklin T. Adams-Watters, May 12 2006
STATUS
approved