A022499 Describe the previous term! (method B - initial term is 3).
3, 31, 3111, 3113, 311231, 3112213111, 311222113113, 31122312311231, 3112223111213112213111, 31122331132111311222113113, 311222321231211331122312311231
Offset: 1
Examples
E.g. the term after 3113 is obtained by saying "3 once, 1 twice, 3 once", which gives 311231.
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..23
Programs
-
Mathematica
a[1] = 3; a[n_] := a[n] = {#[[1]], Length[#]}& /@ Split[a[n-1] // IntegerDigits] // Flatten // FromDigits; Array[a, 11] (* Jean-François Alcover, Jul 13 2016, updated Jan 05 2018 *)
Comments