A284068 Numbers whose smallest decimal digit is 7.
7, 77, 78, 79, 87, 97, 777, 778, 779, 787, 788, 789, 797, 798, 799, 877, 878, 879, 887, 897, 977, 978, 979, 987, 997, 7777, 7778, 7779, 7787, 7788, 7789, 7797, 7798, 7799, 7877, 7878, 7879, 7887, 7888, 7889, 7897, 7898, 7899, 7977, 7978, 7979, 7987, 7988, 7989
Offset: 1
Crossrefs
Programs
-
Magma
[n: n in [1..100000] | Minimum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 7]
-
Mathematica
Select[Range[8000], Min[IntegerDigits[#]] == 7 &] (* Giovanni Resta, Mar 23 2017 *)
-
PARI
isok(n) = vecmin(digits(n)) == 7; \\ Michel Marcus, Mar 25 2017
Comments