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
KEYWORD
easy,nonn
AUTHOR
Kevin Batista (kevin762401(AT)yahoo.com), Apr 08 2010
EXTENSIONS
Edited by Ray Chandler, Apr 10 2010
STATUS
approved