A048711 - OEIS

%I #11 Dec 07 2014 11:36:39

%S 7,27,119,427,1799,6939,30583,109227,458759,1769499,7798903,27984299,

%T 117901063,454761243,2004318071,7158278827,30064771079,115964117019,

%U 511101108343,1833951035819,7726646167303

%N 2nd row of Family 1 "90 X 150 array": generations 0 .. n of Rule 90 starting from seed pattern 7.

%C Also generated by applying one generation of "Rule 150" to each term of A038183 or by doing a transformation SHIFTXORADJ(A038183)

%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>: Maple implementation of binary eXclusive OR (XORnos).

%F 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 # Maple procedure for doing Shift XOR adjacent terms transformation:

%p SHIFTXORADJ := proc(a) local b,i:

%p if whattype(a) <> list then RETURN([ ]); fi: if nops(a) <= 1 then RETURN([ ]); fi: b := [ ]:

%p for i from 2 to nops(a) do b := [ op(b), XORnos((a[ i-1 ]*2),a[ i ]) ]: od: RETURN(b); end:

%Y A048713.

%K nonn

%O 0,1

%A _Antti Karttunen_.