A138491
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 7.
Original entry on oeis.org
7, 17, 1711, 3117, 172113, 13311217, 17411223, 1322311417, 1741142322, 3213243117, 1731331422, 2214313317, 1731331422, 2214313317, 1731331422, 2214313317, 1731331422, 2214313317, 1731331422, 2214313317, 1731331422
Offset: 0
To get the term after 172113, we say: one 3's, three 1's, one 2's, one 7's, so 13311217
Cf.
A063850,
A022482,
A005150,
A005151,
A006751,
A006715,
A006711,
A022506-
A022513,
A138484-
A138490,
A138492,
A138493.
A138492
Say what you see in previous term, from the right, reporting total number for each digit encountered. Initial term is 8.
Original entry on oeis.org
8, 18, 1811, 3118, 182113, 13311218, 18411223, 1322311418, 1841142322, 3213243118, 1831331422, 2214313318, 1831331422, 2214313318, 1831331422, 2214313318, 1831331422, 2214313318, 1831331422, 2214313318, 1831331422
Offset: 0
To get the term after 182113, we say: one 3's, three 1's, one 2's, one 8's, so 13311218
A022509
Describe previous term from the right (method A - initial term is 5).
Original entry on oeis.org
5, 15, 1511, 211511, 21152112, 122112152112, 122112151112212211, 2122112231151112212211, 21221122311521132221221112, 12312211321321121521132221221112
Offset: 0
The term after 1511 is obtained by saying "two 1's, one 5, one 1", which gives 211511.
A022510
Describe previous term from the right (method A - initial term is 6).
Original entry on oeis.org
6, 16, 1611, 211611, 21162112, 122112162112, 122112161112212211, 2122112231161112212211, 21221122311621132221221112, 12312211321321121621132221221112
Offset: 0
E.g., the term after 1611 is obtained by saying "two 1's, one 6, one 1", which gives 211611.
-
a[1]=6; a[n_]:= a[n]= IntegerReverse[ FromDigits[ Flatten[ Replace[ Replace[ Replace[ Split[ IntegerDigits[a[n-1]]], {x_,y_}->{x,Length[{x,y}]},{1}], {x_,y_,z_}->{x,Length[{x,y,z}]},{1}], {x_}->{x,Length[{x}]},{1}]]]];
Array[a,10] (* Ivan N. Ianakiev, Jul 23 2019 *)
-
from re import split
A022510_list, l = [6], '6'
for _ in range(10):
l = ''.join(str(len(d))+d[0] for d in split('(0+|1+|2+|3+|4+|5+|6+|7+|8+|9+)',l[::-1]) if d)
A022510_list.append(int(l)) # Chai Wah Wu, Jan 02 2015
Comments