%I #18 Aug 23 2019 19:45:52
%S 7,151,379,547,631,727,769,1531,1627,1741,1789,1999,2131,2437,2659,
%T 2797,2857,2917,3217,3331,3511,3919,3931,4591,4651,4759,4801,4831,
%U 4957,5281,5689,5701,5779,5821,5881,6067,6217,6361,6619,6871,7039,7309,7489,7927,8179,8221,8329,8581,8641
%N Primes p such that 2*p^5-1 is also prime.
%F A000040 INTERSECT A309854.
%t Select[Range[10000], PrimeQ[#]&&PrimeQ[2*(#^5)-1] &] (* _Metin Sariyar_, Aug 21 2019 *)
%Y Cf. A182785 (2*p^4-1 prime), A177104 (2*p^3-1 prime), A309854 (2*n^5-1 prime).
%K nonn
%O 1,1
%A _R. J. Mathar_, Aug 20 2019
|