|
Search: id:A063850
|
|
|
| A063850 |
|
Say what you see in previous term, reporting total number for each digit encountered. |
|
+0
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; listen)
|
|
|
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 this_sequence A005150 A001388 A110393
Adjacent sequences: A063847 A063848 A063849 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
