%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