1,1

In hexadecimal this sequence looks like: 96,5A,96696996,96696996699696696996966996696996,

AA55AA55AA55AA5555AA55AA55AA55AA,

99666699669999669966669966999966669999669966669966999966996666996699996699666699669999669966669999666699669999669966669966999966, ...

Index entries for sequences related to cellular automata

# Other procedures as with A048705

rule90x150combination_xored := proc(n) local r, d, p, q, j, s, k, pattern;

p := extended_A020652[ n ]; # the rule 150 component [ 0, 1, op(A020652) ]

q := extended_A020653[ n ]; # the rule 90 component [ 1, 0, op(A020653) ]

r := p+q; # radius of CA.

d := (2*r)+1; # diameter of CA, including the cell itself.

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;

Sequence in context: A078950 A142269 A104262 this_sequence A054729 A116185 A008889

Adjacent sequences: A048703 A048704 A048705 this_sequence A048707 A048708 A048709

nonn

Antti Karttunen, Mar 09 1999