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 A155009 #4 Dec 01 2016 17:18:59 %S A155009 2,7,11,17,19,23,41,43,61,67,107,109,131,137,179,197,263,269,331,353, %T A155009 397,641,677,743,859,941,1163,1171,1213,1303,1319,1433,1447,1453,1543, %U A155009 1601,1783,2221,2351,2371,2417,2503,2657,2689,2791,2797,2909,3037,3301 %N A155009 Primes p such that (p-a)*(p+a)-+a*p are primes,a=5. %C A155009 1*12-35=-23, 1*12+35=47; 6*16-55=96-55=41, 6*16-55=96+55=151, ... %H A155009 Harvey P. Dale, <a href="/A155009/b155009.txt">Table of n, a(n) for n = 1..1000</a> %t A155009 lst={};Do[p=Prime[n];If[PrimeQ[(p-5)*(p+5)-5*p]&&PrimeQ[(p-5)*(p+5)+5*p],AppendTo[lst,p]],{n,7!}];lst %t A155009 Select[Prime[Range[500]],AllTrue[(#-5)(#+5)+{5#,-5#},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 01 2016 *) %Y A155009 Cf. A125272, A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939, A155006, A155007, A155008 %K A155009 nonn %O A155009 1,1 %A A155009 _Vladimir Joseph Stephan Orlovsky_, Jan 18 2009