A277201 Primes of the form (p^4 + 1)/2, where p is prime.
41, 313, 1201, 7321, 14281, 41761, 139921, 353641, 6922921, 12705841, 14199121, 56275441, 81523681, 784119601, 1984563001, 4798962481, 5049019561, 6448958881, 7763701441, 15410832361, 17253574561, 20321481601, 22977034081, 26321586241
Offset: 1
Keywords
Examples
a(1) = 41 because 3 is prime and (3^4 + 1)/2 = 41 is prime. a(2) = 313 because 5 is prime and (5^4 + 1)/2 = 313 is prime. a(3) = 1201 because 7 is prime and (7^4 + 1)/2 = 1201 is prime.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[a: p in PrimesUpTo(1000) | IsPrime(a) where a is (p^4+1) div 2 ]; // Vincenzo Librandi, Nov 07 2016
-
Mathematica
Select[Map[(#^4 + 1)/2 &, Prime@ Range@ 100], PrimeQ] (* Michael De Vlieger, Oct 04 2016 *) Select[Table[(p^4+1)/2,{p,Prime[Range[100]]}],PrimeQ] (* Harvey P. Dale, Dec 21 2018 *)
-
Maxima
makelist(if primep(k)=true then ((k^4)+1)/2 else 0,k,3,500,1)$ sublist(%,primep);
-
PARI
lista(nn) = {forprime(p=3, nn, if (isprime(q=(p^4+1)/2), print1(q, ", ")););} \\ Michel Marcus, Oct 04 2016
Formula
a(n) = (A176116(n)^4 + 1)/2.
Comments