OFFSET
1,2
MATHEMATICA
Select[Range[300], Min[IntegerDigits[#]]==1 &] (* Indranil Ghosh, Mar 19 2017 *)
PROG
(Magma) [n: n in [1..100000] | Minimum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 1]
(PARI) for(n=1, 300, if(vecmin(digits(n))==1, print1(n, ", "))) \\ Indranil Ghosh, Mar 19 2017
(Python)
from sympy.ntheory.factor_ import digits
print([n for n in range(1, 301) if min(digits(n)[1:])==1]) # Indranil Ghosh, Mar 19 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 19 2017
STATUS
approved