%I #11 Sep 08 2022 08:45:45
%S 41,43,89,127,137,157,193,211,233,241,251,271,283,317,331,353,389,401,
%T 419,461,487,503,521,547,557,613,619,751,787,827,857,919,929,937,941,
%U 953,1009,1013,1021,1033,1069,1097,1103,1163,1171,1193,1229,1361,1367
%N Primes p such that 2*p+100280245065 is also a prime number.
%C The large constant is constructed from 3*5*7*11*13*17*19*23*29*31 = 100280245065.
%H Vincenzo Librandi, <a href="/A161614/b161614.txt">Table of n, a(n) for n = 1..1000</a>
%e The prime 41 is in the sequence because 2*41+100280245065 = 100280245147 is also prime.
%t a=3*5*7*11*13*17*19*23*29*31;c=0;lst={};Do[p=Prime[n];If[PrimeQ[2*p+a], AppendTo[lst,p],c++ ],{n,6!}];lst
%t With[{c=Times@@Prime[Range[2,11]]},Select[Prime[Range[250]], PrimeQ[ 2#+c]&]] (* _Harvey P. Dale_, Nov 01 2011 *)
%t Select[Prime[Range[300]], PrimeQ[2 # + 100280245065]&] (* _Vincenzo Librandi_, Apr 15 2013 *)
%o (Magma) [p: p in PrimesUpTo(1400) | IsPrime(2*p + 100280245065)]; // _Vincenzo Librandi_, Apr 15 2013
%K nonn,less
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009
%E Definition reworded by _R. J. Mathar_, Oct 02 2009
|