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.

A105265 Concatenation of letters of words obtained from axiom "1" and the iterates of the substitutions '1' -> "12", '2' -> "3", '3' -> "4", '4' -> "1".

This page as a plain text file.
%I A105265 #16 Jul 22 2018 21:58:29
%S A105265 1,1,2,1,2,1,2,3,1,2,1,2,3,1,2,3,1,2,3,4,1,2,1,2,3,1,2,3,1,2,3,4,1,2,
%T A105265 3,1,2,3,4,1,2,3,4,1,2,3,4,1,1,2,1,2,3,1,2,3,1,2,3,4,1,2,3,1,2,3,4,1,
%U A105265 2,3,4,1,2,3,4,1,1,2,3,1,2,3,4,1,2,3,4,1,2,3,4,1,1,2,3,4,1,2,3,4,1,1,2,3,4
%N A105265 Concatenation of letters of words obtained from axiom "1" and the iterates of the substitutions '1' -> "12", '2' -> "3", '3' -> "4", '4' -> "1".
%C A105265 Let W() be the substitution defined above. If we define the sequence S(n) by S(0) = {1}, S(n+1) = S(n) + W(S(n)), then this sequence is the limiting sequence of S(n) as n approaches infinity. - _Charlie Neder_, Jul 11 2018
%H A105265 Charlie Neder, <a href="/A105265/b105265.txt">Table of n, a(n) for n = 0..9999</a>
%t A105265 s[1] = {1, 2}; s[2] = {3}; s[3] = {4}; s[4] = {1};
%t A105265 t[a_] := Join[a, Flatten[s /@ a]];
%t A105265 p[0] = {1}; p[1] = t[{1}]; p[n_] := t[p[n - 1]]
%t A105265 aa = p[6]
%Y A105265 Cf. A073058.
%K A105265 nonn,easy,less
%O A105265 0,3
%A A105265 _Roger L. Bagula_, Apr 15 2005
%E A105265 New name from _Joerg Arndt_, Jul 14 2018