cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A292250 #7 Sep 12 2017 20:37:41
%S A292250 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,
%T A292250 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,
%U A292250 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
%N A292250 Binary encoding of 0-digits in ternary representation of A048673(n).
%H A292250 Antti Karttunen, <a href="/A292250/b292250.txt">Table of n, a(n) for n = 1..16384</a>
%H A292250 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F A292250 a(n) = A291770(A048673(n)).
%t A292250 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 *)
%Y A292250 Cf. A048673, A291759, A291770, A292251, A292252.
%Y A292250 Cf. also A292240, A292260.
%K A292250 nonn,base
%O A292250 1,10
%A A292250 _Antti Karttunen_, Sep 12 2017