login
A145474
Primes p such that (13+p)/2 is prime.
3
13, 61, 73, 109, 181, 193, 241, 313, 349, 373, 409, 433, 541, 601, 613, 661, 733, 829, 853, 1033, 1069, 1129, 1201, 1213, 1249, 1453, 1489, 1609, 1693, 1741, 1753, 1801, 1861, 2029, 2053, 2089, 2113, 2161, 2221, 2293, 2389, 2593, 2749, 2833, 2953, 3049
OFFSET
1,1
COMMENTS
All these primes are congruent to 1 mod 12.
LINKS
MAPLE
select(t -> isprime(t) and isprime((13+t)/2), [seq(12*k+1, k=1..100)]); # Robert Israel, Aug 05 2014
MATHEMATICA
aa = {}; k = 13; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, Prime[n]]], {n, 1, 500}]; aa
PROG
(PARI)
forprime(p=3, 10^4, if(isprime((13+p)/2), print1(p, ", "))) \\ Derek Orr, Aug 05 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 11 2008
STATUS
approved