login
Describe previous term from the right (method A - initial term is 4).
3

%I #11 Dec 17 2021 06:02:22

%S 4,14,1411,211411,21142112,122112142112,122112141112212211,

%T 2122112231141112212211,21221122311421132221221112,

%U 12312211321321121421132221221112

%N Describe previous term from the right (method A - initial term is 4).

%C Method A = 'frequency' followed by 'digit'-indication.

%e The term after 1411 is obtained by saying "two 1's, one 4, one 1", which gives 211411.

%t A022508[1]:=4;A022508[n_]:=A022508[n]=FromDigits[Flatten[{Length[#],First[#]}&/@Split[Reverse[IntegerDigits[A022508[n-1]]]]]];Map[A022508,Range[15]] (* _Peter J. C. Moses_, Apr 22 2013 *)

%Y Cf. A022506, A006711, A022482, A022507-A022513.

%K nonn,base,easy,nice

%O 0,1

%A _N. J. A. Sloane_

%E More terms from _Erich Friedman_