|
%I #15 Sep 01 2023 08:17:09
%S 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 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 81,81,243,27,81,81,243,81,243,243,697,3,9,9,27,9
%N a(n) = A161415(n+1)/4.
%H Paolo Xausa, <a href="/A160727/b160727.txt">Table of n, a(n) for n = 1..10000</a>
%H 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 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 From _Omar E. Pol_, Jan 01 2014: (Start)
%e Written as an irregular triangle in which row lengths is A000079 the sequence begins:
%e 2;
%e 3,7;
%e 3,9,9,23;
%e 3,9,9,27,9,27,27,73;
%e 3,9,9,27,9,27,27,81,9,27,27,81,27,81,81,227;
%e 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 (End)
%t 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 Cf. A152978, A153000, A160414, A161415.
%K nonn,tabf
%O 1,1
%A _Omar E. Pol_, Jun 13 2009
%E a(11)-a(58) from _M. F. Hasler_, Dec 03 2012
%E a(59)-a(68) from _Omar E. Pol_, Jan 06 2014
|
