OFFSET
1,1
LINKS
FORMULA
a(n) = A007510(n+1).
a(n) ~ n log n. - Charles R Greathouse IV, Jun 07 2013
MATHEMATICA
Flatten[Select[Split[Prime[Range[106]], #2 - #1 < 4 &], Length[#] == 1 &]] (* Jayanta Basu, Jun 07 2013 *)
PROG
(PARI) select(p->!isprime(p-2)&&!isprime(p+2), primes(100)[2..100]) \\ Charles R Greathouse IV, Jun 07 2013
CROSSREFS
KEYWORD
easy,nonn,less
AUTHOR
Omar E. Pol, Nov 14 2007
STATUS
approved