A291771 Filter based on runlengths of 0-digits in base-3 expansion of n: a(n) = A278222(A291770(n)).

1, 1, 2, 1, 1, 2, 1, 1, 4, 2, 2, 2, 1, 1, 2, 1, 1, 4, 2, 2, 2, 1, 1, 2, 1, 1, 8, 4, 4, 6, 2, 2, 6, 2, 2, 4, 2, 2, 2, 1, 1, 2, 1, 1, 4, 2, 2, 2, 1, 1, 2, 1, 1, 8, 4, 4, 6, 2, 2, 6, 2, 2, 4, 2, 2, 2, 1, 1, 2, 1, 1, 4, 2, 2, 2, 1, 1, 2, 1, 1, 16, 8, 8, 12, 4, 4, 12, 4, 4, 12, 6, 6, 6, 2, 2, 6, 2, 2, 12, 6, 6, 6, 2, 2, 6

Offset

1,3

Links

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

Formula

a(n) = A278222(A291770(n)).

Mathematica

f[n_, i_, x_] := Which[n == 0, x, EvenQ@ n, f[n/2, i + 1, x], True, f[(n - 1)/2, i, x Prime@ i]]; Array[If[# == 1, 1, Times @@ MapIndexed[Prime[First[#2]]^#1 &, Sort[FactorInteger[#][[All, -1]], Greater]]] &@ f[FromDigits[IntegerDigits[#, 3] /. k_ /; k < 3 :> If[k == 0, 1, 0], 2], 1, 1] &, 96] (* Michael De Vlieger, Sep 11 2017 *)

Crossrefs

Cf. A007089, A077267, A278222, A291770, A290091, A290092, A290093, A290094.

Sequence in context: A343388 A133009 A210705 * A186972 A053734 A238904

Adjacent sequences: A291768 A291769 A291770 * A291772 A291773 A291774

Keyword

nonn,base

Author

Antti Karttunen, Sep 11 2017

Status

approved