OFFSET
1,6
LINKS
FORMULA
MATHEMATICA
Array[If[# == 1, 0, DigitCount[Total@ Map[#2*2^(PrimePi@ #1 - 1) & @@ # &, FactorInteger[#]], 2, 1]] &, 105] (* Michael De Vlieger, Dec 31 2018 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 31 2018
STATUS
approved