|
Search: id:A090258
|
|
|
| A090258 |
|
Last term of prime quadruples. |
|
+0
4
|
|
| 13, 19, 109, 199, 829, 1489, 1879, 2089, 3259, 3469, 5659, 9439, 13009, 15649, 15739, 16069, 18049, 18919, 19429, 21019, 22279, 25309, 31729, 34849, 43789, 51349, 55339, 62989, 67219, 69499, 72229, 77269, 79699, 81049, 82729, 88819, 97849
(list; graph; listen)
|
|
|
OFFSET
|
13,1
|
|
|
MATHEMATICA
|
lst={}; Do[p0=Prime[n]; If[PrimeQ[p2=p0+2], If[PrimeQ[p6=p0+6], If[PrimeQ[p8=p0+8], AppendTo[lst, p8]]]], {n, 12^4}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 22 2008]
|
|
PROGRAM
|
(PARI) quintpr(n) = { s=0; forprime(p=5, n, if(isprime(p+2) && isprime(p+6) && isprime(p+8), print1(p+8", "); ) ); print(); print(s+.0) }
|
|
CROSSREFS
|
Equals A064974 - 1.
Sequence in context: A098413 A109504 A122042 this_sequence A088187 A095040 A069195
Adjacent sequences: A090255 A090256 A090257 this_sequence A090259 A090260 A090261
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)gmail.com), Jan 24 2004
|
|
|
Search completed in 0.002 seconds
|
