OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
TwinPrimeQ[n_]:=If[PrimeQ[n], If[PrimeQ[n-2]||PrimeQ[n+2], True, False], False](*TwinPrimeQ*) lst={}; Do[p=LegendreP[6, n]; If[TwinPrimeQ[p], AppendTo[lst, p]], {n, 1, 22^3, 2}]; lst
PROG
(PARI) forstep(n=1, 1e4, 2, if(isprime(k=pollegendre(6, n))&isprime(k-2), print1(k", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 12 2008
EXTENSIONS
New definition from N. J. A. Sloane and Charles R Greathouse IV, Feb 03 2011 to Feb 05 2011.
STATUS
approved