OFFSET
1,1
COMMENTS
Subsequence of A007528. - Michel Marcus, Apr 26 2015
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[6n - 1, {n, 200}], PrimeQ[ # ] && ! PrimeQ[ # + 2] &] (* Ray Chandler, Aug 22 2006 *)
PROG
(PARI) is(n)=n%6==5 && isprime(n) && !isprime(n+2) \\ Charles R Greathouse IV, Apr 04 2016
(Magma) [n: n in [1..1050] | (n mod 6 eq 5) and not IsPrime(n+2) and IsPrime(n)]; // G. C. Greubel, Feb 26 2019
(Sage) [n for n in (1..1050) if mod(n, 6)==5 and not is_prime(n+2) and is_prime(n)] # G. C. Greubel, Feb 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Aug 20 2006
EXTENSIONS
Extended by Ray Chandler, Aug 22 2006
STATUS
approved