|
%I #14 Sep 08 2022 08:45:34
%S 2,7,11,13,17,19,31,37,43,47,53,61,67,73,79,83,97,103,107,109,127,131,
%T 137,139,149,151,157,163,167,179,181,193,197,199,211,223,227,229,241,
%U 251,257,263,271,277,281,283,307,313,317,331,337,347,349,353,367,373
%N Primes p such that p + 38 is not a prime.
%t Select[Prime[Range[100]],!PrimeQ[#+38]&] (* _Harvey P. Dale_, Feb 02 2019 *)
%o (Magma) [p: p in PrimesUpTo(1000)|not IsPrime(p+38)] // _Vincenzo Librandi_, Dec 18 2010
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 03 2008
%E Corrected (19, 349 inserted) by _R. J. Mathar_, Apr 25 2010
|
