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 A155028 #8 Sep 08 2022 08:45:40 %S A155028 2,5,7,13,23,47,79,89,103,109,137,139,193,223,229,257,277,293,317,347, %T A155028 379,389,443,457,499,593,607,653,677,709,733,823,853,883,907,953,1013, %U A155028 1033,1087,1103,1117,1283,1297,1307,1327,1367,1409,1489,1523,1549,1597 %N A155028 Primes p such that p^3 + 2*p^2 + p + 1 is also prime. %H A155028 Vincenzo Librandi, <a href="/A155028/b155028.txt">Table of n, a(n) for n = 1..1000</a> %t A155028 Select[Prime[Range[1600]], PrimeQ[(#^3 + 2*#^2 + # + 1)]&] (* _Vincenzo Librandi_, Oct 30 2012 *) %o A155028 (Magma) [p: p in PrimesUpTo(1600)| IsPrime(p^3 + 2*p^2 + p + 1)]; // _Vincenzo Librandi_, Oct 30 2012 %Y A155028 Cf. A154686. %K A155028 nonn,easy %O A155028 1,1 %A A155028 _Vincenzo Librandi_, Jan 19 2009