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,10

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Index entries for sequences related to binary expansion of n

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

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

Cf. also A292240, A292260.

Sequence in context: A086834 A332342 A173539 * A245492 A298203 A298209

Adjacent sequences: A292247 A292248 A292249 * A292251 A292252 A292253

Keyword

nonn,base

Author

Antti Karttunen, Sep 12 2017

Status

approved