OFFSET
1,1
MATHEMATICA
Select[Range[71000], Length[Split[IntegerDigits[#, 4]]]==9&] (* Harvey P. Dale, May 23 2017 *)
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
STATUS
approved
