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 A246335 #25 Oct 03 2018 04:53:47 %S A246335 1,5,9,21,25,37,57,85,89,101,121,165,169,213,217,317,321,333,353,397, %T A246335 401,461,481,637,593,733,689,877,801,981,921,1157,1185,1197,1217,1261, %U A246335 1265,1325,1345,1501,1457,1613,1585,1829,1721,2037,1913,2381,2145,2477,2409,2685 %N A246335 Second bisection of A246333. %C A246335 a(2^k-1) begins 1,5,21,85, which is (4^k-1)/3, but a(15) = 317 not 341, breaking the pattern. %H A246335 N. J. A. Sloane, <a href="/A246333/a246333.pdf">Illustration of first 24 generations of A246333</a> %H A246335 N. J. A. Sloane, <a href="/A246335/a246335.png">Illustration of a(6) = 57</a> (Note that this is a different configuration of 57 cells from that in generation 6 of A169707, although the configurations of 37 cells at generation 5 are the same up to rotation.) %H A246335 N. J. A. Sloane, <a href="http://arxiv.org/abs/1503.01168">On the Number of ON Cells in Cellular Automata</a>, arXiv:1503.01168, 2015 %H A246335 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a> %t A246335 max = 100; (Partition[Total[Flatten[#]]& /@ CellularAutomaton[{493, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, max], 2] /. {a_, b_} -> {a, (max + 1 - Mod[max, 2])^2 - b} )[[All, 2]] (* _Jean-François Alcover_, Oct 03 2018 *) %Y A246335 Cf. A246333, A246334, A247001. Similar to but different from A169707. %K A246335 nonn %O A246335 0,2 %A A246335 _N. J. A. Sloane_, Aug 30 2014