%I A063850
%S A063850 1,11,21,1211,3112,132112,311322,232122,421311,14123113,41141223,
%T A063850 24312213,32142321,23322114,32232114,23322114,32232114,23322114,
%U A063850 32232114,23322114,32232114,23322114,32232114,23322114,32232114
%N A063850 Say what you see in previous term, reporting total number for each digit 
               encountered.
%F A063850 After a while sequence has period 2.
%e A063850 To get the term after 311322, we say: two 3's, two 1's, two 2's, so 232122.
%t A063850 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 A063850 A variant of A005150, A005151, etc.
%Y A063850 Sequence in context: A098154 A158081 A007890 this_sequence A005150 A001388 
               A110393
%Y A063850 Adjacent sequences: A063847 A063848 A063849 this_sequence A063851 A063852 
               A063853
%K A063850 base,easy,nonn
%O A063850 0,2
%A A063850 N. J. A. Sloane (njas(AT)research.att.com), Aug 25 2001
%E A063850 Corrected and extended by Dean Hickerson, Aug 27, 2001