This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A090258 #22 Apr 04 2022 19:52:57 %S A090258 13,19,109,199,829,1489,1879,2089,3259,3469,5659,9439,13009,15649, %T A090258 15739,16069,18049,18919,19429,21019,22279,25309,31729,34849,43789, %U A090258 51349,55339,62989,67219,69499,72229,77269,79699,81049,82729,88819,97849 %N A090258 Last term of prime quadruples. %H A090258 Harvey P. Dale, <a href="/A090258/b090258.txt">Table of n, a(n) for n = 1..1000</a> %t A090258 A090258 = Select[Range[9, 10^5 - 1, 2], Union[PrimeQ[# - {0, 2, 6, 8}]] == {True} &] (* _Alonso del Arte_, Aug 12 2012 *) %t A090258 Transpose[Select[Partition[Prime[Range[9500]],4,1],Differences[#]=={2,4,2}&]] [[4]] (* _Harvey P. Dale_, Nov 11 2013 *) %o A090258 (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) } %Y A090258 Equals A064974 - 1. %Y A090258 Equals A007530 + 8. %K A090258 easy,nonn %O A090258 1,1 %A A090258 _Cino Hilliard_, Jan 24 2004