OFFSET
1,1
MATHEMATICA
With[{k = 4}, Select[Range@ 554, And[Total@ Take[#, k] == 0, #[[k + 1]] > 0] &@ RotateRight@ DigitCount@ # &]] (* Michael De Vlieger, Mar 20 2017 *)
(* or *)
Select[Range[1000], Min[IntegerDigits[#]] == 4 &] (* Giovanni Resta, Mar 22 2017 *)
PROG
(Magma) [n: n in [1..100000] | Minimum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 4]
(PARI) isok(n) = vecmin(digits(n)) == 4; \\ Michel Marcus, Mar 25 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 19 2017
STATUS
approved