|
| |
|
|
A144173
|
|
Values of the Legendre polynomial P_6 that are the greater of a twin prime pair.
|
|
1
|
|
|
|
199720105201, 18162880851661706161, 108242541698965770601, 170461841497718037541, 314304417137765143321, 522983530625286783781, 8464133962630480939309, 11418010921003118271841
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
Sequence in context: A233624 A104800 A217091 * A127343 A108048 A108496
Adjacent sequences: A144170 A144171 A144172 * A144174 A144175 A144176
|
|
|
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
|
| |
|
|
