The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A063850 Say what you see in previous term, reporting total number for each digit encountered. 24

%I #10 Jul 17 2015 02:02:42

%S 1,11,21,1211,3112,132112,311322,232122,421311,14123113,41141223,

%T 24312213,32142321,23322114,32232114,23322114,32232114,23322114,

%U 32232114,23322114,32232114,23322114,32232114,23322114,32232114

%N Say what you see in previous term, reporting total number for each digit encountered.

%C The digits of each term a(n) are a permutation of those of the corresponding term A005151(n). - _Chayim Lowen_, Jul 16 2015

%F After a while sequence has period 2.

%e To get the term after 311322, we say: two 3's, two 1's, two 2's, so 232122.

%t deldup[ lst_ ] := Module[ {i, s}, s={}; For[ i=1, i<=Length[ lst ], i++, If[ !MemberQ[ s, lst[ [ i ] ] ], AppendTo[ s, lst[ [ i ] ] ] ] ]; s ]; next[ term_ ] := FromDigits[ Flatten[ ({Count[ IntegerDigits[ term ], # ], #}&)/@deldup[ IntegerDigits[ term ] ] ] ]

%Y A variant of A005150, A005151, etc.

%K base,easy,nonn

%O 0,2

%A _N. J. A. Sloane_, Aug 25 2001

%E Corrected and extended by _Dean Hickerson_, Aug 27 2001

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 22 10:24 EDT 2024. Contains 372745 sequences. (Running on oeis4.)