|
%I #13 Dec 05 2015 20:54:13
%S 150,90,2523490710,199931532107794273605284333428918544790,
%T 226413559313153607979257138616992421290
%N XOR-conjugate rules of 1-D cellular automata rules given in A048705.
%C In hexadecimal this sequence looks like: 96,5A,96696996,96696996699696696996966996696996,
%C AA55AA55AA55AA5555AA55AA55AA55AA,
%C 9966669966999966996666996699996666999966996666996699996699666699669999 6699666699669999669966669999666699669999669966669966999966, ...
%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%p # Other procedures as with A048705
%p rule90x150combination_xored := proc(n) local r,d,p,q,j,s,k,pattern;
%p p := extended_A020652[ n ]; # the Rule 150 component [ 0,1,op(A020652) ]
%p q := extended_A020653[ n ]; # the Rule 90 component [ 1,0,op(A020653) ]
%p r := p+q; # radius of CA.
%p d := (2*r)+1; # diameter of CA, including the cell itself.
%p s := 0; for k from 0 to (2^d)-1 do if(bit_i(k,r) <> bit_i(rule90(rule150(k,p),q),(2*r))) then s := s + 2^k; fi; od; RETURN(s); end;
%K nonn
%O 1,1
%A _Antti Karttunen_, Mar 09 1999
| 