OFFSET
1,1
MATHEMATICA
Select[Range[8000], Min[IntegerDigits[#]] == 7 &] (* Giovanni Resta, Mar 23 2017 *)
PROG
(Magma) [n: n in [1..100000] | Minimum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 7]
(PARI) isok(n) = vecmin(digits(n)) == 7; \\ Michel Marcus, Mar 25 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 23 2017
STATUS
approved