Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without 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: A207793 A232074 A216408 * A178458 A248712 A226562
Adjacent sequences: A043656 A043657 A043658 * A043660 A043661 A043662