%I #19 Sep 08 2022 08:44:56
%S 41,43,47,401,409,419,421,431,433,439,443,449,457,461,463,467,479,487,
%T 491,499,4001,4003,4007,4013,4019,4021,4027,4049,4051,4057,4073,4079,
%U 4091,4093,4099,4111,4127,4129,4133,4139,4153,4157,4159,4177,4201,4211
%N Primes with first digit 4.
%H Vincenzo Librandi, <a href="/A045710/b045710.txt">Table of n, a(n) for n = 1..5000</a>
%t Select[Table[Prime[n], {n, 1000}], First[IntegerDigits[#]] == 4 &]
%t Flatten[Table[Prime[Range[PrimePi[4 * 10^n] + 1, PrimePi[5 * 10^n]]], {n, 3}]] (* _Alonso del Arte_, Jul 19 2014 *)
%o (Magma) [p: p in PrimesUpTo(10^4) | Intseq(p)[#Intseq(p)] eq 4]; // _Bruno Berselli_, Jul 19 2014
%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=4 of A262369.
%K nonn,base,easy
%O 1,1
%A _Felice Russo_
%E More terms from _Erich Friedman_.