In the above sequence with initial term 1, each subsequent term is generated by reading off the digits of the previous term, i.e. by counting from left to right the number of repeated digits. For example,
How many times does the digit 3 appear in the term of the sequence?
This section requires Javascript.
You are seeing this because something didn't load right. We suggest you, (a) try
refreshing the page, (b) enabling javascript if it is disabled on your browser and,
finally, (c)
loading the
non-javascript version of this page
. We're sorry about the hassle.
Mathematica
Count[IntegerDigits@Nest[FromDigits@Flatten[{Length@#,#[[1]]}&/@Split@IntegerDigits@#]&,1,32-1],3]
returns 1392