OFFSET
1,1
COMMENTS
The lesser of twin primes == 5 (mod 8).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> isprime(t) and isprime(t+2), [seq(i, i=5..10000, 8)]); # Robert Israel, Nov 25 2019
MATHEMATICA
Select[ Prime@ Range@ 1000, Mod[#, 8] == 5 && PrimeQ[# + 2] &]
PROG
(PARI) forprime(p=1, 7900, if(Mod(p, 8)==5 && ispseudoprime(p+2), print1(p, ", "))) \\ Felix Fröhlich, Nov 25 2019
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jan 22 2012
STATUS
approved