Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 5000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Table of n, a(n) for n=1..36.
Select[Range, Length[Split[IntegerDigits[#, 13]]]==4&] (* Harvey P. Dale, Mar 07 2012 *)
Sequence in context: A232074 A278207 A216408 * A178458 A248712 A226562
Adjacent sequences: A043656 A043657 A043658 * A043660 A043661 A043662