OFFSET
1,4
LINKS
MATHEMATICA
Array[DigitCount[#, 2, 1] &@ If[# < 3, 1, Block[{k = #, m = 0}, Times @@ Power @@@ Table[k -= m; k = DeleteCases[k, 0]; {Prime@Length@k, m = Min@ k}, Length@ Union@ k]] &@ Catenate[ConstantArray[PrimePi[#1], #2] & @@@ FactorInteger@ #]] &, 105] (* Michael De Vlieger, Dec 31 2018, after JungHwan Min at A122111 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 30 2018
STATUS
approved