login
Primes with minimal digit = 1.
3

%I #8 Dec 02 2021 18:09:03

%S 11,13,17,19,31,41,61,71,113,127,131,137,139,149,151,157,163,167,173,

%T 179,181,191,193,197,199,211,241,251,271,281,311,313,317,331,419,421,

%U 431,461,491,521,541,571,613,617,619,631,641,661,691,719,751,761,811

%N Primes with minimal digit = 1.

%C Subsequence of A038618. - _Michel Marcus_, Oct 23 2013

%t Select[Prime[Range[200]], Min[IntegerDigits[ # ]]==1&]

%Y Cf. A038618.

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 07 2005