A138493
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 9.
Original entry on oeis.org
9, 19, 1911, 3119, 192113, 13311219, 19411223, 1322311419, 1941142322, 3213243119, 1931331422, 2214313319, 1931331422, 2214313319, 1931331422, 2214313319, 1931331422, 2214313319, 1931331422, 2214313319, 1931331422
Offset: 0
To get the term after 192113, we say: one 3's, three 1's, one 2's, one 9's, so 13311219
A022508
Describe previous term from the right (method A - initial term is 4).
Original entry on oeis.org
4, 14, 1411, 211411, 21142112, 122112142112, 122112141112212211, 2122112231141112212211, 21221122311421132221221112, 12312211321321121421132221221112
Offset: 0
The term after 1411 is obtained by saying "two 1's, one 4, one 1", which gives 211411.
A022511
Describe previous term from the right (method A - initial term is 7).
Original entry on oeis.org
7, 17, 1711, 211711, 21172112, 122112172112, 122112171112212211, 2122112231171112212211, 21221122311721132221221112, 12312211321321121721132221221112
Offset: 0
The term after 1711 is obtained by saying "two 1's, one 7, one 1", which gives 211711.
-
NestList[FromDigits@ Flatten@ Map[Reverse@ Flatten@ Tally[#] &, Split@ Reverse@ IntegerDigits[#]] &, 7, 9] (* Michael De Vlieger, Dec 16 2021 *)
A022512
Describe previous term from the right (method A - initial term is 8).
Original entry on oeis.org
8, 18, 1811, 211811, 21182112, 122112182112, 122112181112212211, 2122112231181112212211, 21221122311821132221221112, 12312211321321121821132221221112
Offset: 0
E.g., the term after 1811 is obtained by saying "two 1's, one 8, one 1", which gives 211811.
-
split[n_]:=Split[Reverse[IntegerDigits[n]]];
list1[n_]:=List/@Length/@split[n];riffle1[n_]:=Riffle[split[n],list1[n]];
tab[n_]:=Table[i,{i,1,2*Length[list1[n]],2}];
list2[n_]:=Append[riffle1[n][[#]],riffle1[n][[#+1]]]&/@tab[n];
flat[n_]:=Flatten/@list2[n];riffle2[n_]:=Riffle[Last/@flat[n],First/@flat[n]];
a[1]=8; a[n_]:=FromDigits[riffle2[a[n-1]]]; Array[a,10] (* or *)
IntegerReverse[NestList[FromDigits[Flatten[Replace[Replace[Replace[Split[Reverse[IntegerDigits[#]]],{x_,y_}->{x,Length[{x,y}]},{1}],{x_,y_,z_}->{x,Length[{x,y,z}]},{1}],{x_}->{x,Length[{x}]},{1}]]]&,8,9]] (* Ivan N. Ianakiev, Nov 10 2016 *)
A138485
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 1.
Original entry on oeis.org
1, 11, 21, 1112, 1231, 211312, 223113, 232122, 421113, 13311214, 14411223, 13223124, 14322123, 23322114, 14213223, 23322114, 14213223, 23322114, 14213223, 23322114, 14213223, 23322114, 14213223, 23322114, 14213223
Offset: 0
To get the term after 211312, we say: two 2's, three 1's, one 3's, so 223113.
A138486
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 2.
Original entry on oeis.org
2, 12, 1211, 3112, 122113, 133122, 222123, 134211, 31121413, 23411412, 22312413, 23211432, 32231421, 21321423, 23321421, 21321423, 23321421, 21321423, 23321421, 21321423, 23321421, 21321423, 23321421, 21321423
Offset: 0
To get the term after 122113, we say: one 3's, three 1's, two 2's, so 133122
Cf.
A063850,
A022482,
A005150,
A005151,
A006751,
A006715,
A006711,
A022506-
A022513,
A138484,
A138485,
A138487-
A138493.
A138487
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 3.
Original entry on oeis.org
3, 13, 1311, 3113, 2321, 112213, 133122, 222123, 134211, 31121413, 23411412, 22312413, 23211432, 32231421, 21321423, 23321421, 21321423, 23321421, 21321423, 23321421, 21321423, 23321421, 21321423, 23321421, 21321423
Offset: 0
To get the term after 112213, we say: one 3's, three 1's, two 2's, so 133122
A138488
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 4.
Original entry on oeis.org
4, 14, 1411, 3114, 142113, 13311214, 14411223, 13223124, 14322123, 23322114, 14213223, 23322114
Offset: 0
To get the term after 142113, we say: one 3's, three 1's, one 2's, one 4's, so 13311214
A138489
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 5.
Original entry on oeis.org
5, 15, 1511, 3115, 152113, 13311215, 15411223, 1322311415, 1541142322, 3213243115, 1531331422, 2214313315, 1531331422, 2214313315, 1531331422, 2214313315, 1531331422, 2214313315, 1531331422, 2214313315, 1531331422
Offset: 0
To get the term after 152113, we say: one 3's, three 1's, one 2's, one 5's, so 13311215
A138490
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 6.
Original entry on oeis.org
6, 16, 1611, 3116, 162113, 13311216, 16411223, 1322311416, 1641142322, 3213243116, 1631331422, 2214313316, 1631331422, 2214313316, 1631331422, 2214313316, 1631331422, 2214313316, 1631331422, 2214313316, 1631331422
Offset: 0
To get the term after 162113, we say: one 3's, three 1's, one 2's, one 6's, so 13311216
Comments