This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A246318 #13 Feb 04 2015 16:05:57
%S A246318 1,9,21,45,93,117,173,205,293,225,145,369,609,597,661,789,1033,845,
%T A246318 685,1157,1185,1245,1629,1669,1601,1881,1857,1957,2485,2885,2565,2497,
%U A246318 3541,3113,2561,3401,3393,3633,3801,4505,4189,4049,4941,5717,5197,5861,6337,6105,7085,6640,6212,7280,7408,7580
%N A246318 Total number of ON cells at stage 2n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 451".
%C A246318 The number of ON cells at stage 2n+1 is infinite.
%D A246318 S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
%H A246318 N. J. A. Sloane, <a href="/A246318/a246318.pdf">Illustration of first 24 generations</a>
%H A246318 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%t A246318 Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 451, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]] (* then take every other term *)
%t A246318 ArrayPlot /@ CellularAutomaton[{451, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
%Y A246318 Cf. A169699, A246316.
%K A246318 nonn
%O A246318 0,2
%A A246318 _N. J. A. Sloane_, Aug 27 2014