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.

A364241 a(n) is the initial transient (converted to base 10), before the periodic part, on the n-th diagonal from the left of rule-30 1-D cellular automaton, when started from a single ON cell, or -1 if there is no transient part.

Original entry on oeis.org

-1, -1, 1, -1, -1, -1, -1, -1, -1, -1, 1, 1, -1, 4, 9, 0, 228, 63, 1241, 69, 7609, 2944, 11356, 255, 28487, 30890, 42037, 24160, 104333, 19167, 132196, 25361, 1042145, 473564, 4512243, 153187, 258856349, 2950249, 353554884, 104435283, 26762321451, 2005002052
Offset: 1

Views

Author

Paolo Xausa, Jul 15 2023

Keywords

Comments

See A363346 for the length of the transients.

Examples

			In the following diagram, showing the first 22 evolution steps of the CA, three diagonals are highlighted, along with their transient and periodic parts (the rest of the CA is represented by hyphens, for better visualization).
.
                              3rd diagonal
                           __ Transient = 1
                        - /   Repeat    = 0
                       --1    a(3)      = 1
                      --0--
                     --0----      12th diagonal
                    --0------  __ Transient = 01
                   --0--------/   Repeat    = 0010
                  --0--------0-   a(12)     = 1
                 --0--------1---
                --0--------0-----  __ 20th diagonal
               --0--------0-------/   Transient = 01000101
              --0--------1-------0-   Repeat    = 1100
             --0--------0-------1---  a(20)     = 69
            --0--------0-------0-----
           --0--------0-------0-------
          --0--------1-------0---------
         --0--------0-------1-----------
        --0--------0-------0-------------
       --0--------0-------1---------------
      --0--------1-------1-----------------
     --0--------0-------1-------------------
    --0--------0-------0---------------------
   --0--------0-------0-----------------------
  --0--------1-------1-------------------------
.
		

Crossrefs

Cf. A070950.
Cf. A363344 (diagonals), A363345 (periods), A363346 (length of transients), A364240 (periodic part).

Programs

  • Mathematica
    A364241list[nmax_]:=With[{ca=CellularAutomaton[86,{{1},0},{2nmax,{1-nmax,nmax}}]},Map[If[#=={},-1,FromDigits[#,2]]&,Array[First[FindTransientRepeat[Drop[Diagonal[ca,nmax-#],Ceiling[(#-1)/2]],2]]&,nmax]]];A364241list[50]