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 A174916 #9 Sep 11 2012 20:25:09 %S A174916 3,5,11,17,29,71,101,281,311,419,461,521,599,617,641,659,809,827,857, %T A174916 881,1019,1061,1277,1289,1319,1607,1721,1949,2027,2111,2141,2309,2339, %U A174916 2381,2591,2729,2801,3329,3557,3581,3767,3851,4049,4127,4157,4217,4229 %N A174916 Lesser of twin primes p1 such that p1 + p2^2 - p1^2 is a prime number. %C A174916 3+(5^2-3^2)=3+16=19,.. %C A174916 Let x be the lesser of twin prime pairs. The sequence contains terms such that 5*x+4 is prime. - _Harvey P. Dale_, Sep 11 2012 %H A174916 Harvey P. Dale, <a href="/A174916/b174916.txt">Table of n, a(n) for n = 1..1000</a> %t A174916 lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2] && PrimeQ[p1+(p2^2-p1^2)], AppendTo[lst, p1]], {n, 1000}]; lst %t A174916 With[{ltp=Transpose[Select[Partition[Prime[Range[600]],2,1],#[[2]]- #[[1]]==2&]][[1]]}, Select[ltp,PrimeQ[5#+4]&]] (* _Harvey P. Dale_, Sep 11 2012 *) %Y A174916 Cf. A001359, A174913, A174915. %K A174916 nonn %O A174916 1,1 %A A174916 _Vladimir Joseph Stephan Orlovsky_, Apr 02 2010