A292250 Binary encoding of 0-digits in ternary representation of A048673(n).

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

Author

Antti Karttunen, Sep 12 2017

Keywords

• nonn
• base

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A048673, A291759, A291770, A292251, A292252.

Cf. also A292240, A292260.

Programs

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 *)

Formula

a(n) = A291770(A048673(n)).