|
|
A022511
|
|
Describe previous term from the right (method A - initial term is 7).
|
|
2
|
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Method A = 'frequency' followed by 'digit'-indication.
|
|
LINKS
|
|
|
EXAMPLE
|
The term after 1711 is obtained by saying "two 1's, one 7, one 1", which gives 211711.
|
|
MATHEMATICA
|
NestList[FromDigits@ Flatten@ Map[Reverse@ Flatten@ Tally[#] &, Split@ Reverse@ IntegerDigits[#]] &, 7, 9] (* Michael De Vlieger, Dec 16 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|