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 A246332 #13 Feb 04 2015 16:09:18
%S A246332 1,1,5,5,17,9,21,21,25,33,45,49,81,69,105,81,101,101,165,141,197,185,
%T A246332 217,209,265,245,337,269,405,325,477,389,521,461,625,469,621,485,769,
%U A246332 585,849,737,825,705,973,713,985,841,1089,925,1257,969,1229,1093,1265
%N A246332 a(n) = if n is even, number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 461" or if n is odd, number of OFF cells.
%D A246332 S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
%H A246332 N. J. A. Sloane, <a href="/A246329/a246329.pdf">Illustration of first 24 generations</a>
%H A246332 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%t A246332 Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 461, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]] (* then subtract the odd-indexed terms from 131^2 *)
%t A246332 ArrayPlot /@ CellularAutomaton[{461, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
%Y A246332 A246329 is a bisection.
%Y A246332 Cf. A169699, A246316, A246318, A246325, A246326, ...
%K A246332 nonn
%O A246332 0,3
%A A246332 _N. J. A. Sloane_, Aug 30 2014