cp's OEIS Frontend

A160727 a(n) = A161415(n+1)/4.

%I A160727 #15 Sep 01 2023 08:17:09
%S A160727 2,3,7,3,9,9,23,3,9,9,27,9,27,27,73,3,9,9,27,9,27,27,81,9,27,27,81,27,
%T A160727 81,81,227,3,9,9,27,9,27,27,81,9,27,27,81,27,81,81,243,9,27,27,81,27,
%U A160727 81,81,243,27,81,81,243,81,243,243,697,3,9,9,27,9
%N A160727 a(n) = A161415(n+1)/4.
%H A160727 Paolo Xausa, <a href="/A160727/b160727.txt">Table of n, a(n) for n = 1..10000</a>
%H A160727 N. J. A. Sloane, <a href="/wiki/Catalog_of_Toothpick_and_CA_Sequences_in_OEIS">Catalog of Toothpick and Cellular Automata Sequences in the OEIS</a>
%F A160727 a(n) = A048883(n), except a(n) = A048883(n) - (n+1)/2 if n is a power of 2 minus 1. - _Omar E. Pol_, Jan 06 2014
%e A160727 From _Omar E. Pol_, Jan 01 2014: (Start)
%e A160727 Written as an irregular triangle in which row lengths is A000079 the sequence begins:
%e A160727 2;
%e A160727 3,7;
%e A160727 3,9,9,23;
%e A160727 3,9,9,27,9,27,27,73;
%e A160727 3,9,9,27,9,27,27,81,9,27,27,81,27,81,81,227;
%e A160727 3,9,9,27,9,27,27,81,9,27,27,81,27,81,81,243,9,27,27,81,27, 81,81,243,27,81,81,243,81,243,243,697;
%e A160727 (End)
%t A160727 A160727[n_]:=3^DigitCount[n,2,1]-If[IntegerQ[Log2[n+1]],(n+1)/2,0];Array[A160727,100] (* _Paolo Xausa_, Sep 01 2023 *)
%Y A160727 Cf. A152978, A153000, A160414, A161415.
%K A160727 nonn,tabf
%O A160727 1,1
%A A160727 _Omar E. Pol_, Jun 13 2009
%E A160727 a(11)-a(58) from _M. F. Hasler_, Dec 03 2012
%E A160727 a(59)-a(68) from _Omar E. Pol_, Jan 06 2014