OFFSET
0,3
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..5000 (terms 0..999 from Robert Price)
Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
MATHEMATICA
A265323list[nmax_]:=Accumulate[Range[1, 2nmax+1, 2]-Map[Total, CellularAutomaton[110, {{1}, 0}, nmax]]]; A265323list[100] (* Paolo Xausa, Oct 04 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert Price, Dec 06 2015
STATUS
approved