%I #19 Sep 08 2022 08:44:56
%S 3,31,37,307,311,313,317,331,337,347,349,353,359,367,373,379,383,389,
%T 397,3001,3011,3019,3023,3037,3041,3049,3061,3067,3079,3083,3089,3109,
%U 3119,3121,3137,3163,3167,3169,3181,3187,3191,3203,3209,3217,3221,3229
%N Primes with first digit 3.
%H Vincenzo Librandi, <a href="/A045709/b045709.txt">Table of n, a(n) for n = 1..5000</a>
%t Select[Table[Prime[n], {n, 4000}], First[IntegerDigits[#]]==3 &] (* _Vincenzo Librandi_, Aug 08 2014 *)
%o (PARI) isok(n) = isprime(n) && (digits(n, 10)[1] == 3) \\ _Michel Marcus_, Jun 08 2013
%o (Magma) [p: p in PrimesUpTo(3300) | Intseq(p)[#Intseq(p)] eq 3]; // _Vincenzo Librandi_, Aug 08 2014
%Y Cf. A000040.
%Y For primes with initial digit d (1 <= d <= 9) see A045707, A045708, A045709, A045710, A045711, A045712, A045713, A045714, A045715; A073517, A073516, A073515, A073514, A073513, A073512, A073511, A073510, A073509
%Y Column k=3 of A262369.
%K nonn,base,easy
%O 1,1
%A _Felice Russo_
%E More terms from _Erich Friedman_.