cp's OEIS Frontend

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.

Showing 1-3 of 3 results.

A079314 Number of first-quadrant cells (including the two boundaries) born at stage n of the Holladay-Ulam cellular automaton.

Original entry on oeis.org

1, 2, 2, 4, 2, 4, 4, 10, 2, 4, 4, 10, 4, 10, 10, 28, 2, 4, 4, 10, 4, 10, 10, 28, 4, 10, 10, 28, 10, 28, 28, 82, 2, 4, 4, 10, 4, 10, 10, 28, 4, 10, 10, 28, 10, 28, 28, 82, 4, 10, 10, 28, 10, 28, 28, 82, 10, 28, 28, 82, 28, 82, 82, 244, 2, 4, 4, 10, 4, 10, 10, 28, 4, 10, 10, 28, 10, 28, 28, 82, 4
Offset: 0

Views

Author

N. J. A. Sloane, Feb 12 2003

Keywords

Comments

See the main entry for this CA, A147562, for further information.
When I first read the Singmaster MS in 2003 I misunderstood the definition of the CA. In fact once cells are ON they stay ON. The other version, when cells can change state from ON to OFF, is described in A079317. - N. J. A. Sloane, Aug 05 2009
The pattern has 4-fold symmetry; sequence just counts cells in one quadrant.

Examples

			From _Omar E. Pol_, Jul 18 2009: (Start)
If written as a triangle:
  1;
  2;
  2,4;
  2,4,4,10;
  2,4,4,10,4,10,10,28;
  2,4,4,10,4,10,10,28,4,10,10,28,10,28,28,82;
  2,4,4,10,4,10,10,28,4,10,10,28,10,28,28,82,4,10,10,28,10,28,28,82,10,28;...
Rows converge to A151712.
(End)
		

References

  • D. Singmaster, On the cellular automaton of Ulam and Warburton, M500 Magazine of the Open University, #195 (December 2003), pp. 2-7.

Crossrefs

Programs

  • Mathematica
    A079314list[nmax_]:=Join[{1},3^(DigitCount[Range[nmax],2,1]-1)+1];A079314list[100] (* Paolo Xausa, Jun 29 2023 *)

Formula

For n > 0, a(n) = 3^(A000120(n)-1) + 1.
For n > 0, a(n) = A147582(n)/4 + 1.
Partial sums give A151922. [Omar E. Pol, Nov 20 2009]

Extensions

Edited by N. J. A. Sloane, Aug 05 2009

A151923 a(n) = A079316(2n+1).

Original entry on oeis.org

3, 7, 11, 21, 25, 35, 45, 73, 77, 87, 97, 125, 135, 163, 191, 273, 277, 287, 297, 325, 335, 363, 391, 473, 483, 511, 539, 621, 649, 731, 813, 1057, 1061, 1071, 1081, 1109, 1119, 1147, 1175, 1257, 1267, 1295, 1323, 1405, 1433, 1515, 1597, 1841, 1851, 1879, 1907
Offset: 0

Views

Author

N. J. A. Sloane, Aug 05 2009

Keywords

Crossrefs

Programs

  • Mathematica
    A151923list[nmax_]:=Accumulate[3^DigitCount[Range[0,nmax],2,1]+1]+1;A151923list[100] (* Paolo Xausa, Jul 28 2023 *)

Formula

First differences give A151712.

Extensions

More terms from Paolo Xausa, Jul 28 2023

A162784 a(n) = (A048883(n)+1)/2.

Original entry on oeis.org

1, 2, 2, 5, 2, 5, 5, 14, 2, 5, 5, 14, 5, 14, 14, 41, 2, 5, 5, 14, 5, 14, 14, 41, 5, 14, 14, 41, 14, 41, 41, 122, 2, 5, 5, 14, 5, 14, 14, 41, 5, 14, 14, 41, 14, 41, 41, 122, 5, 14, 14, 41, 14, 41, 41, 122, 14, 41, 41, 122, 41, 122, 122, 365, 2, 5, 5, 14
Offset: 0

Views

Author

Omar E. Pol, Jul 19 2009, Jul 23 2009

Keywords

Comments

Rows of A079318 when written as a triangle converge to this sequence.

Examples

			If written as a triangle:
1;
2;
2,5;
2,5,5,14;
2,5,5,14,5,14,14,41;
2,5,5,14,5,14,14,41,5,14,14,41,14,41,41,122;
		

Crossrefs

Programs

  • Mathematica
    a048883[n_] := 3^DigitCount[n, 2, 1];
    a[n_] := (a048883[n] + 1)/2;
    Array[a, 70, 0] (* Jean-François Alcover, Nov 15 2017 *)

Formula

a(n) = A151712(n)/2.

Extensions

More terms from Max Alekseyev, Feb 23 2012
Showing 1-3 of 3 results.