login
Numbers whose smallest decimal digit is 6.
7

%I #12 Sep 08 2022 08:46:19

%S 6,66,67,68,69,76,86,96,666,667,668,669,676,677,678,679,686,687,688,

%T 689,696,697,698,699,766,767,768,769,776,786,796,866,867,868,869,876,

%U 886,896,966,967,968,969,976,986,996,6666,6667,6668,6669,6676,6677,6678

%N Numbers whose smallest decimal digit is 6.

%C Numbers n such that A054054(n) = 6.

%C Prime terms are in A106106.

%t Select[Range[1000], Min[IntegerDigits[#]] == 6 &] (* _Giovanni Resta_, Mar 23 2017 *)

%o (Magma) [n: n in [1..100000] | Minimum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 6]

%o (PARI) isok(n) = vecmin(digits(n)) == 6; \\ _Michel Marcus_, Mar 25 2017

%Y Cf. Sequences of numbers whose smallest decimal digit is k (for k = 0..9): A011540 (k = 0), A284062 (k = 1), A284063 (k = 2), A284064 (k = 3), A284065 (k = 4), A284066 (k = 5), this sequence (k = 6), A284068 (k = 7), A284069 (k = 8), A002283 (k = 9).

%K nonn,base

%O 1,1

%A _Jaroslav Krizek_, Mar 23 2017