|
| |
|
|
A063850
|
|
Say what you see in previous term, reporting total number for each digit encountered.
|
|
23
| |
|
|
1, 11, 21, 1211, 3112, 132112, 311322, 232122, 421311, 14123113, 41141223, 24312213, 32142321, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
FORMULA
| After a while sequence has period 2.
|
|
|
EXAMPLE
| To get the term after 311322, we say: two 3's, two 1's, two 2's, so 232122.
|
|
|
MATHEMATICA
| 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 ] ] ] ]
|
|
|
CROSSREFS
| A variant of A005150, A005151, etc.
Sequence in context: A098154 A158081 A007890 * A005150 A001388 A110393
Adjacent sequences: A063847 A063848 A063849 * A063851 A063852 A063853
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Aug 25 2001
|
|
|
EXTENSIONS
| Corrected and extended by Dean Hickerson, Aug 27, 2001
|
| |
|
|
