A045710 Primes with first digit 4.

41, 43, 47, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 4001, 4003, 4007, 4013, 4019, 4021, 4027, 4049, 4051, 4057, 4073, 4079, 4091, 4093, 4099, 4111, 4127, 4129, 4133, 4139, 4153, 4157, 4159, 4177, 4201, 4211

Offset

1,1

Links

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

Mathematica

Select[Table[Prime[n], {n, 1000}], First[IntegerDigits[#]] == 4 &]
Flatten[Table[Prime[Range[PrimePi[4 * 10^n] + 1, PrimePi[5 * 10^n]]], {n, 3}]] (* Alonso del Arte, Jul 19 2014 *)

Prog

(Magma) [p: p in PrimesUpTo(10^4) | Intseq(p)[#Intseq(p)] eq 4]; // Bruno Berselli, Jul 19 2014

Crossrefs

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

Column k=4 of A262369.

Sequence in context: A345346 A062669 A284290 * A090152 A139774 A007643

Adjacent sequences: A045707 A045708 A045709 * A045711 A045712 A045713

Keyword

nonn,base,easy

Author

Felice Russo

Extensions

More terms from Erich Friedman.

Status

approved