OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[50000], DigitCount[#, 10, 4]==4&] (* Vincenzo Librandi, Jul 01 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved