A176116 - OEIS

%I #30 Feb 07 2021 21:04:16

%S 3,5,7,11,13,17,23,29,61,71,73,103,113,199,251,313,317,337,353,419,

%T 431,449,463,479,487,503,523,607,613,643,677,701,719,761,769,811,821,

%U 829,857,883,919,997,1013,1019,1049,1087,1123,1163,1259,1327,1381,1483,1493

%N Primes p such that p^4+1 = 2q where q is prime.

%H Jon E. Schoenfield, <a href="/A176116/b176116.txt">Table of n, a(n) for n = 1..10000</a>

%e 3^4+1 = 2*41; 5^4+1 = 2*313; 7^4+1 = 2*1201; 11^4+1 = 2*7321.

%t Select[Prime[Range[250]],PrimeQ[(#^4+1)/2]&] (* _Harvey P. Dale_, Jul 20 2012 *)

%o (PARI) lista(nn) = forprime(p=3, nn, if (isprime((p^4+1)/2), print1(p, ", "));); \\ _Michel Marcus_, Oct 03 2016

%Y Subsequence of A096169.

%Y Cf. A277201 (resulting primes).

%K easy,nonn

%O 1,1

%A Kevin Batista (kevin762401(AT)yahoo.com), Apr 08 2010

%E Edited by _Ray Chandler_, Apr 10 2010