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

Author

Cino Hilliard, Jan 24 2004

Keywords

• easy
• nonn

Links

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

Crossrefs

Equals A064974 - 1.

Equals A007530 + 8.

Programs

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 *)

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) }