A090258 Last term of prime quadruples.

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

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

A090258 = Select[Range[9, 10^5 - 1, 2], Union[PrimeQ[# - {0, 2, 6, 8}]] == {True} &] (* Alonso del Arte, Aug 12 2012 *)
Transpose[Select[Partition[Prime[Range[9500]], 4, 1], Differences[#]=={2, 4, 2}&]] [[4]] (* Harvey P. Dale, Nov 11 2013 *)

Prog

(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.

Equals A007530 + 8.

Sequence in context: A241486 A180531 A271926 * A241246 A153266 A166664

Adjacent sequences: A090255 A090256 A090257 * A090259 A090260 A090261

Keyword

easy,nonn

Author

Cino Hilliard, Jan 24 2004

Status

approved