OFFSET
1,10
LINKS
MATHEMATICA
Map[FromDigits[IntegerDigits[#, 3] /. k_ /; k < 3 :> If[k == 0, 1, 0], 2] &, Table[(Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n, {n, 116}]] (* Michael De Vlieger, Sep 12 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 12 2017
STATUS
approved