%I A048711
%S A048711 7,27,119,427,1799,6939,30583,109227,458759,1769499,7798903,
%T A048711 27984299,117901063,454761243,2004318071,7158278827,30064771079,
%U A048711 115964117019,511101108343,1833951035819,7726646167303
%N A048711 2nd row of Family 1 "90 X 150 array": generations 0 .. n of Rule 90 starting
from seed pattern 7.
%C A048711 Also generated by applying one generation of "Rule 150" to each term
of A038183 or by doing a transformation SHIFTXORADJ(A038183)
%H A048711 N. J. A. Sloane, <a href="http://www.research.att.com/%7Enjas/sequences/
transforms.txt">Maple implementation of binary eXclusive OR (XORnos)</
a>
%F A048711 a(n) = product('((bit_i((n+1), i)*(2^(2^(i+1))))+1)', 'i'=0..floor_log_2(n+2))
+ 2*product('((bit_i(n, i)*(2^(2^(i+1))))+1)', 'i'=0..floor_log_2(n+1));
%p A048711 # Maple procedure for doing Shift XOR adjacent terms transformation:
%p A048711 SHIFTXORADJ := proc(a) local b,i:
%p A048711 if whattype(a) <> list then RETURN([ ]); fi: if nops(a) <= 1 then RETURN([
]); fi: b := [ ]:
%p A048711 for i from 2 to nops(a) do b := [ op(b), XORnos((a[ i-1 ]*2),a[ i ])
]: od: RETURN(b); end:
%Y A048711 A048713.
%Y A048711 Sequence in context: A090856 A055917 A056120 this_sequence A118101 A147996
A034536
%Y A048711 Adjacent sequences: A048708 A048709 A048710 this_sequence A048712 A048713
A048714
%K A048711 nonn
%O A048711 0,1
%A A048711 Antti Karttunen.
|