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 A160859 #5 Jan 18 2013 16:36:58
%S A160859 2,5,11,47,71,89,179,317,461,659,1481,1499,1511,2141,2441,2549,2777,
%T A160859 2879,2909,3221,3659,3677,3701,4229,4337,4691,5669,5807,7517,8147,
%U A160859 8867,9029,9311,10271,13907,14327,14747,15107,15269,16217,16301,16937,17627
%N A160859 Primes p such that p^3 + p^2 - 1 and p^3 + p^2 + 1 are prime.
%C A160859 2^3 + 2^2 - 1 = 11, 2^3 + 2^2 + 1 = 13
%t A160859 lst={};Do[p=Prime[n];a=p^2;b=p^3;c=b+a;If[PrimeQ[c-1]&&PrimeQ[c+1],AppendTo[lst,p]],{n,2*7!}];lst
%t A160859 ppQ[n_]:=Module[{c=n^3+n^2},And@@PrimeQ[c+{1,-1}]]; Select[Prime[Range[ 2100]],ppQ] (* _Harvey P. Dale_, Jan 18 2013 *)
%Y A160859 Cf. A160858
%K A160859 nonn
%O A160859 1,1
%A A160859 _Vladimir Joseph Stephan Orlovsky_, May 29 2009
%E A160859 Edited by _Charles R Greathouse IV_, Nov 11 2009