|
%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_.
| 