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

3, 5, 7, 11, 13, 17, 23, 29, 61, 71, 73, 103, 113, 199, 251, 313, 317, 337, 353, 419, 431, 449, 463, 479, 487, 503, 523, 607, 613, 643, 677, 701, 719, 761, 769, 811, 821, 829, 857, 883, 919, 997, 1013, 1019, 1049, 1087, 1123, 1163, 1259, 1327, 1381, 1483, 1493

Offset

1,1

Links

Jon E. Schoenfield, Table of n, a(n) for n = 1..10000

Example

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

Mathematica

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

Prog

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

Crossrefs

Subsequence of A096169.

Cf. A277201 (resulting primes).

Sequence in context: A074781 A147545 A083668 * A063908 A154868 A274987

Adjacent sequences: A176113 A176114 A176115 * A176117 A176118 A176119

Keyword

easy,nonn

Author

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

Extensions

Edited by Ray Chandler, Apr 10 2010

Status

approved