|
%I #25 Feb 23 2020 07:36:58
%S 0,3,6,7,12,15,14,11,24,27,30,31,28,31,22,19,48,51,54,55,60,63,62,59,
%T 56,59,62,63,44,47,38,35,96,99,102,103,108,111,110,107,120,123,126,
%U 127,124,127,118,115,112,115,118,119,124,127,126,123,88,91,94,95,76,79,70,67,192,195,198,199,204,207,206,203,216
%N Formula for Wolfram's Rule 124 cellular automaton: a(n) = (n OR 2n) AND ((n XOR 2n) OR (n XOR 4n)).
%H Antti Karttunen, <a href="/A269174/b269174.txt">Table of n, a(n) for n = 0..32767</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ElementaryCellularAutomaton.html">Elementary Cellular Automaton</a>
%H S. Wolfram, <a href="http://wolframscience.com/">A New Kind of Science</a>
%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%H <a href="https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata">Index to Elementary Cellular Automata</a>
%F a(n) = A163617(n) AND A269173(n).
%F a(n) = A163617(n) AND (A048724(n) OR A048725(n)).
%F a(n) = (n OR 2n) AND ((n XOR 2n) OR (n XOR 4n)).
%F Other identities. For all n >= 0:
%F a(2*n) = 2*a(n).
%F a(n) = A057889(A161903(A057889(n))). [Rule 124 is the mirror image of rule 110.]
%t a[n_] := BitAnd[BitOr[n, 2n], BitOr[BitXor[n, 2n], BitXor[n, 4n]]];
%t a /@ Range[0, 100] (* _Jean-François Alcover_, Feb 23 2020 *)
%o (Scheme) (define (A269174 n) (A004198bi (A163617 n) (A003986bi (A048724 n) (A048725 n))))
%o (Python) def a(n): return (n|2*n)&((n^(2*n))|(n^(4*n))) # _Indranil Ghosh_, Apr 19 2017
%o (Go)
%o package main
%o import "fmt"
%o func main() {
%o for n:=0; n<=100; n++{
%o fmt.Println((n|2*n)&((n^(2*n))|(n^(4*n))))}
%o } // _Indranil Ghosh_, Apr 19 2017
%Y Cf. A003986, A003987, A004198, A048724, A048725, A057889, A269173, A161903.
%Y Cf. A269175.
%Y Cf. A269176 (numbers not present in this sequence).
%Y Cf. A269177 (same sequence sorted into ascending order, duplicates removed).
%Y Cf. A269178 (numbers that occur only once).
%Y Cf. A267357 (iterates from 1 onward).
%K nonn
%O 0,2
%A _Antti Karttunen_, Feb 22 2016
|
