OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
66=6*11 and 66+1=67 are not twin primes, so 66 is a term.
MAPLE
select(t -> isprime(t-1) <> isprime(t+1), 6*[$1..200]); # Robert Israel, Jul 10 2023
MATHEMATICA
Select[6 Range@ 100, Total@ Boole@ Map[If[PrimeQ@ #, Count[Abs[# - {NextPrime[#, -1], NextPrime@ #}], k_ /; k == 2] < 1, False] &, {# - 1, # + 1}] > 0 &] (* Michael De Vlieger, May 15 2016 *)
PROG
(PARI) {
forstep(n=6, 1000, 6,
if((isprime(n-1)+isprime(n+1))==1,
print1(n", ")
)
)
}
CROSSREFS
KEYWORD
nonn
AUTHOR
Dimitris Valianatos, May 14 2016
STATUS
approved