A341210 Primes p such that (p^16 + 1)/2 is prime.
3, 29, 41, 73, 113, 157, 167, 173, 199, 599, 607, 617, 1213, 1747, 1979, 2027, 2237, 2377, 2441, 2593, 2659, 2689, 2693, 3061, 3137, 3413, 3457, 3539, 3673, 3733, 3769, 4091, 4157, 4273, 4289, 4547, 4603, 4759, 4877, 4909, 4957, 5039, 5231, 5233, 5303, 5419
Offset: 1
Keywords
Examples
(3^16 + 1)/2 = 21523361 is prime, so 3 is a term. (5^16 + 1)/2 = 76293945313 = 2593*29423041, so 5 is not a term.
Links
- Jon E. Schoenfield, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Prime[Range[750]],PrimeQ[(#^16+1)/2]&] (* Harvey P. Dale, Oct 06 2023 *)
-
PARI
isok(p) = isprime(p) && (p>2) && isprime((p^16 + 1)/2); \\ Michel Marcus, Feb 07 2021
Comments