OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[100]], ! PrimeQ[(#+1)/2] &]
PROG
(PARI) is(p) = isprime(p) && (p == 2 || !isprime((p+1)/2)); \\ Amiram Eldar, Jan 16 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 28 2010
EXTENSIONS
Entries checked by R. J. Mathar, May 01 2010
STATUS
approved
