|
%I #7 Sep 08 2022 08:45:51
%S 2,727,13267,13693,20533,21863,24043,27697,36877,39227,41957,42293,
%T 47087,48593,53887,55763,64763,77617,85247,87803,88793,93997,98323,
%U 113983,122453,132967,138433,155443,157457,158303,158747,159553,166823
%N Primes p such that 2*p^5-+3 are also prime.
%H Vincenzo Librandi, <a href="/A174368/b174368.txt">Table of n, a(n) for n = 1..1000</a>
%e For p=2, 2*2^5-+3=(61,67); p=727, 2*727^5-+3=(406164582184811,406164582184817).
%t Select[Prime[Range[20000]], And@@PrimeQ[2 #^5 + {3,-3}]&] (* _Vincenzo Librandi_, Apr 10 2013 *)
%o (Magma) [p: p in PrimesUpTo(200000)|IsPrime(2*p^5-3) and IsPrime(2*p^5+3)];
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Mar 17 2010
|
