OFFSET
1,1
FORMULA
A023706 \ {0}. - R. J. Mathar, Oct 20 2008
MATHEMATICA
Select[Range[150], DigitCount[#, 4, 0]==1&] (* Harvey P. Dale, Jul 23 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved