%I #11 Sep 08 2022 08:45:35

%S 233,311,389,467,701,857,1013,1091,1481,1559,1637,1871,1949,2027,2339,

%T 2417,2729,2963,3041,3119,3821,4133,4211,4289,4523,4679,5147,5303,

%U 5381,5693,5849,5927,6317,6473,6551,6863,7019,7253,7331,7487,7643,7877,8111,8423

%N Primes congruent to 38 mod 39.

%H Vincenzo Librandi, <a href="/A142182/b142182.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) ~ 24n log n. - _Charles R Greathouse IV_, Jul 03 2016

%t Select[Prime[Range[3000]],MemberQ[{38},Mod[#,39]]&] (* _Vincenzo Librandi_, Aug 20 2012 *)

%t Select[Range[38,8500,39],PrimeQ] (* _Harvey P. Dale_, Aug 21 2020 *)

%o (Magma)[p: p in PrimesUpTo(10000) | p mod 39 eq 38]; // _Vincenzo Librandi_, Aug 20 2012

%o (PARI) is(n)=isprime(n) && n%39==38 \\ _Charles R Greathouse IV_, Jul 03 2016

%Y Cf. A000040.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, Jul 11 2008