login
A292250
Binary encoding of 0-digits in ternary representation of A048673(n).
6
0, 0, 1, 0, 0, 0, 1, 0, 0, 2, 0, 0, 3, 0, 3, 0, 2, 2, 1, 4, 6, 2, 1, 0, 0, 0, 3, 0, 0, 0, 2, 0, 5, 6, 1, 4, 1, 4, 0, 8, 0, 14, 1, 4, 12, 0, 7, 0, 4, 2, 1, 0, 5, 8, 2, 0, 4, 2, 4, 0, 4, 6, 5, 0, 5, 8, 3, 12, 2, 4, 2, 8, 0, 4, 1, 8, 3, 2, 1, 16, 16, 2, 3, 28, 0, 0, 1, 8, 0, 26, 8, 0, 9, 0, 15, 0, 1, 10, 14, 4, 0, 4, 7, 0, 4, 12, 6, 16, 5, 6, 8, 0, 2, 10, 9, 4
OFFSET
1,10
FORMULA
a(n) = A291770(A048673(n)).
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