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 A160722 #19 Nov 02 2022 07:45:48 %S A160722 0,1,5,9,19,23,33,43,65,69,79,89,111,121,143,165,211,215,225,235,257, %T A160722 267,289,311,357,367,389,411,457,479,525,571,665,669,679,689,711,721, %U A160722 743,765,811,821,843,865,911,933,979,1025,1119,1129,1151,1173,1219,1241 %N A160722 Number of "ON" cells at n-th stage in a certain 2-dimensional cellular automaton based on Sierpinski triangles (see Comments for precise definition). %C A160722 This cellular automata is formed by the concatenation of three Sierpinski triangles, starting from a central vertex. Adjacent polygons are fused. The ON cells are triangles, but we only count after fusion. The sequence gives the number of polygons at the n-th round. %C A160722 If instead we start from four Sierpinski triangles we get A160720. %H A160722 Michael De Vlieger, <a href="/A160722/b160722.txt">Table of n, a(n) for n = 0..9999</a> %H A160722 David Applegate, Omar E. Pol and N. J. A. Sloane, <a href="/A000695/a000695_1.pdf">The Toothpick Sequence and Other Sequences from Cellular Automata</a>, Congressus Numerantium, Vol. 206 (2010), 157-191. [There is a typo in Theorem 6: (13) should read u(n) = 4.3^(wt(n-1)-1) for n >= 2.] %H A160722 Hsien-Kuei Hwang, Svante Janson, and Tsung-Hsi Tsai, <a href="https://arxiv.org/abs/2210.10968">Identities and periodic oscillations of divide-and-conquer recurrences splitting at half</a>, arXiv:2210.10968 [cs.DS], 2022, p. 30. %H A160722 Omar E. Pol, <a href="http://www.polprimos.com/imagenespub/polca722.jpg">Illustration if initial terms</a> %H A160722 N. J. A. Sloane, <a href="/wiki/Catalog_of_Toothpick_and_CA_Sequences_in_OEIS">Catalog of Toothpick and Cellular Automata Sequences in the OEIS</a> %F A160722 a(n) = 3*A006046(n) - 2*n. - _Max Alekseyev_, Jan 21 2010 %e A160722 We start at round 0 with no polygons, a(0) = 0. %e A160722 At round 1 we turn ON the first triangle in each of the three Sierpinski triangles. After fusion we have a concave pentagon, so a(1) = 1. %e A160722 At round 2 we turn ON two triangles in each the three Sierpinski triangles. After fusions we have the concave pentagon and four triangles. So a(2) = 1 + 4 = 5. %t A160722 a[0] = 0; a[1] = 1; a[n_] := a[n] = 2 a[Floor[#]] + a[Ceiling[#]] &[n/2]; Array[3 a[#] - 2 # &, 54, 0] (* _Michael De Vlieger_, Nov 01 2022 *) %Y A160722 A160723 gives the first differences. %Y A160722 Cf. A139250, A160720. %K A160722 nonn %O A160722 0,3 %A A160722 _Omar E. Pol_, May 25 2009, Jan 03 2010 %E A160722 Extended by _Max Alekseyev_, Jan 21 2010