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.

A152389 Number of steps in Conway's Game of Life for a row of n cells to stabilize.

Original entry on oeis.org

0, 1, 1, 0, 2, 6, 12, 14, 48, 20, 2, 15, 15, 24, 28, 40, 32, 24, 20, 25, 20, 19, 35, 30, 28, 93, 24, 28, 33, 36, 103, 148, 60, 580, 42, 57, 91, 106, 262, 276, 49, 209, 57, 52, 56, 97, 54, 168, 194, 811, 103, 52, 52, 83, 57, 79, 246, 416, 62, 62, 312, 115, 116
Offset: 0

Views

Author

N. J. A. Sloane, Oct 23 2009, based on a posting by Allan C. Wechsler to the Math Fun Mailing List

Keywords

Comments

A pattern is said to have stabilized if it consists entirely of a (possibly empty) periodic component and zero or more spaceships, such that the spaceships will never interact with each other or with the periodic part.

Examples

			From _Eric M. Schmidt_, Aug 15 2012: (Start)
A 10-cell straight line evolves into a periodic pattern (the pentadecathlon) in two steps. Therefore a(10) = 2. (Based on example in A098720)
A 33-cell straight line evolves, in 387 steps, into a pattern consisting of a periodic component and four gliders. The pattern has not yet stabilized since the gliders will eventually collide.
A 56-cell straight line evolves, in 246 steps, into a pattern consisting of a periodic component and four gliders. The gliders will never collide with each other or with the periodic component, so the pattern has stabilized. Thus, a(56) = 246. (End)
		

Crossrefs

Extensions

More terms and definition changed by Eric M. Schmidt, Aug 15 2012

A152301 a(3) = 1; otherwise a(n) = A152389(n).

Original entry on oeis.org

1, 1, 1, 2, 6, 12, 14, 48, 20, 2, 15, 15, 24, 28, 40, 32, 24, 20, 25, 20, 19, 35, 30, 28, 93, 24, 28, 33, 36, 103, 148, 60, 580, 42, 57, 91, 106, 262, 276, 49, 209, 57, 52, 56, 97, 54, 168, 194, 811, 103, 52, 52, 83, 57, 79, 246, 416, 62, 62, 312, 115, 116
Offset: 1

Views

Author

N. J. A. Sloane, Oct 23 2009

Keywords

Crossrefs

Extensions

More terms and definition changed by Eric M. Schmidt, Aug 15 2012

A110910 Configurations in the evolution of a line of n cells in Conway's Game of Life, with 0=infinity. For periodic evolutions, a(n)=(preperiod length)+(period length). For non-periodic evolutions, a(n)=0.

Original entry on oeis.org

1, 2, 2, 2, 3, 8, 13, 15, 49, 22, 17, 17, 16, 26, 29, 41, 34, 25, 21, 26, 21, 21, 36, 31, 29, 95, 25, 29, 34, 38, 105, 150, 61, 582, 43, 58, 92, 108, 263, 277, 50, 212, 59, 53, 57, 99, 55, 170, 196, 812, 105, 54, 53, 85, 59, 81, 0, 418, 63, 63, 314, 117, 118, 170, 236, 104
Offset: 0

Views

Author

Paul Stoeber (pstoeber(AT)uni-potsdam.de), Oct 03 2005

Keywords

Comments

If nothing catches up with an outbound glider, then a(n)=0 for n>=1000 because when you watch the horizontal 1000-line evolve in a simulator, around the 490th generation, gliders fly away from the left and right corners before the non-chaotic growing in the middle has finished, so you will see the same local picture in the 490th generation of longer lines.

Examples

			a(0)=1 because there is only the empty configuration. a(10)=2+15 because the 10-line needs two steps to become a pentadecathlon. a(56)=0 because the 56-line sends four gliders to outer space.
		

References

  • Berlekamp/Conway/Guy, Winning Ways ..., 2nd ed, vol. 4, chapter 25

Crossrefs

Programs

  • Haskell
    {- program for verification of periodic cases. The non-periodic cases listed here evolve into a periodic kernel plus gliders whose paths ahead do not intersect each other or the kernel (gliders marching in single file are not counted as intersecting). -}
    import Data.Set
    main = print [if n `elem` known then 0 else a n | n<-[0..105]]
    known = [56, 71, 72, 75, 78, 82, 85, 86, 87, 88, 91, 92, 93, 94, 96, 98, 100, 102, 103, 105]
    a n = count empty (iterate evolve (fromList [(x, 0) | x<-[1..n]]))
    neighbors (x, y) = fromList
                      [(x+u, y+v) | u<-[ -1, 0, 1], v<-[ -1, 0, 1], (u, v)/=(0, 0)]
    evolve life =
      let fil f = Data.Set.filter
                  (\x-> f (size (life `intersection` neighbors x)))
      in (life `difference` fil (\k-> k<2 || k>3) life) `union` fil (== 3)
         (unions (Prelude.map neighbors (elems life)) `difference` life)
    count o (x:xs) | x `member` o = 0
                   | otherwise = 1 + count (o `union` singleton x) xs
Showing 1-3 of 3 results.