OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[7, 10710, 7], PrimeQ[#-1]&&PrimeQ[#+1]&] (* James C. McMahon, Jan 01 2025 *)
PROG
(PARI) a(n) = !(n %7) && isprime(n+1) && isprime(n-1); \\ Michel Marcus, Oct 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 01 2007
EXTENSIONS
Name edited by James C. McMahon, Jan 01 2025
STATUS
approved