A045709 - OEIS

A045709

Primes with first digit 3.

3, 31, 37, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 3001, 3011, 3019, 3023, 3037, 3041, 3049, 3061, 3067, 3079, 3083, 3089, 3109, 3119, 3121, 3137, 3163, 3167, 3169, 3181, 3187, 3191, 3203, 3209, 3217, 3221, 3229

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..5000

MATHEMATICA

Select[Table[Prime[n], {n, 4000}], First[IntegerDigits[#]]==3 &] (* Vincenzo Librandi, Aug 08 2014 *)

PROG

(PARI) isok(n) = isprime(n) && (digits(n, 10)[1] == 3) \\ Michel Marcus, Jun 08 2013

(Magma) [p: p in PrimesUpTo(3300) | Intseq(p)[#Intseq(p)] eq 3]; // Vincenzo Librandi, Aug 08 2014

CROSSREFS

Cf. A000040.