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 A151548 #41 Feb 24 2021 02:48:18
%S A151548 1,3,5,7,5,11,17,15,5,11,17,19,21,39,49,31,5,11,17,19,21,39,49,35,21,
%T A151548 39,53,59,81,127,129,63,5,11,17,19,21,39,49,35,21,39,53,59,81,127,129,
%U A151548 67,21,39,53,59,81,127,133,91,81,131,165,199,289,383,321,127,5,11,17,19,21,39
%N A151548 When A160552 is regarded as a triangle with rows of lengths 1, 1, 2, 4, 8, 16, ..., this is what the rows converge to.
%C A151548 When convolved with A151575: (1, 0, 2, -2, 6, -10, 22, -42, 86, -170, 342, ...) equals the toothpick sequence A139250: (1, 3, 7, 11, 15, 23, 35, 43, ...). - _Gary W. Adamson_, May 25 2009
%C A151548 Equals A160552: [1, 1, 3, 1, 3, 5, ...] convolved with [1, 2, 0, 0, 0, ...], equivalent to a(n) = 2*A160552(n) + A160552(n+1). - _Gary W. Adamson_, Jun 04 2009
%C A151548 Equals (1, 0, -2, 2, -2, 2, ...) convolved with the Toothpick sequence, A139250. - _Gary W. Adamson_, Mar 06 2012
%C A151548 It appears that the sums of two successive terms give A147646. - _Omar E. Pol_, Feb 18 2015
%H A151548 N. J. A. Sloane, <a href="/A151548/b151548.txt">Table of n, a(n) for n = 0..10000</a>
%H A151548 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 A151548 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>
%H A151548 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
%F A151548 a(2^k-1) = 2^(k+1)-1 for k >= 0; otherwise a(2^k) = 5 for k >= 1; otherwise a(2^i+j) = 2a(j)+a(j+1) for i >= 2, 1 <= j <= 2^i-2. - _N. J. A. Sloane_, May 22 2009
%F A151548 G.f.: 1/(1+x) + 4*x*mul(1+x^(2^k-1)+2*x^(2^k),k=1..oo). - _N. J. A. Sloane_, May 23 2009
%F A151548 a(n) = A147646(n) - a(n-1), n >= 1. - _Omar E. Pol_, Feb 19 2015
%e A151548 From _Omar E. Pol_, Jul 24 2009: (Start)
%e A151548 When written as a triangle:
%e A151548 1;
%e A151548 3;
%e A151548 5,7;
%e A151548 5,11,17,15;
%e A151548 5,11,17,19,21,39,49,31;
%e A151548 5,11,17,19,21,39,49,35,21,39,53,59,81,127,129,63;
%e A151548 5,11,17,19,21,39,49,35,21,39,53,59,81,127,129,67,21,39,53,59,81,127,133,91,...
%e A151548 (End)
%p A151548 G := 1/(1+x) + 4*x*mul(1+x^(2^k-1)+2*x^(2^k),k=1..20); # _N. J. A. Sloane_, May 23 2009
%p A151548 S2:=proc(n) option remember; local i,j;
%p A151548 if n <= 1 then RETURN(2*n+1); fi;
%p A151548 i:=floor(log(n)/log(2));
%p A151548 j:=n-2^i;
%p A151548 if j=0 then 5 elif j=2^i-1 then 2*n+1
%p A151548 else 2*S2(j)+S2(j+1); fi;
%p A151548 end; # - _N. J. A. Sloane_, May 22 2009
%t A151548 terms = 70; CoefficientList[1/(1 + x) + 4*x*Product[1 + x^(2^k - 1) + 2*x^(2^k), {k, 1, Log[2, terms] // Ceiling}] + O[x]^terms, x] (* _Jean-François Alcover_, Nov 14 2017, after _N. J. A. Sloane_ *)
%Y A151548 Cf. A139250, A160552, A151549, A078008, A246336, A147646, A151575.
%K A151548 nonn
%O A151548 0,2
%A A151548 _David Applegate_, May 18 2009