|
%I #10 Sep 08 2022 08:45:45
%S 29,41,53,71,79,97,103,113,127,131,137,139,151,163,179,197,199,223,
%T 227,257,271,277,283,311,313,331,337,349,353,383,389,401,419,431,443,
%U 461,503,521,563,619,643,653,673,683,769,809,827,883,887,911,919,929,947
%N Primes p such that 2*p+111546435 is also prime.
%C 3*5*7*11*13*17*19*23 = 111546435 = A046326(2) = A147581(1).
%H Vincenzo Librandi, <a href="/A161616/b161616.txt">Table of n, a(n) for n = 1..1000</a>
%t a=3*5*7*11*13*17*19*23;c=0;lst={};Do[p=Prime[n];If[PrimeQ[2*p+a],AppendTo[lst,p],c++ ],{n,6!}];lst
%t Select[Prime[Range[200]], PrimeQ[2 # + 111546435]&] (* _Vincenzo Librandi_, Apr 15 2013 *)
%o (Magma) [p: p in PrimesUpTo(1000) | IsPrime(2*p + 111546435)]; // _Vincenzo Librandi_, Apr 15 2013
%K nonn,less
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009
|
