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 A053183 #48 Aug 29 2018 05:01:24
%S A053183 7,13,31,307,1723,3541,5113,8011,10303,17293,28057,30103,86143,147073,
%T A053183 459007,492103,552793,579883,598303,684757,704761,735307,830833,
%U A053183 1191373,1204507,1353733,1395943,1424443,1482307,1886503,2037757
%N A053183 Primes of the form p^2 + p + 1 when p is prime.
%C A053183 Also primes in A001001. - _Philippe Deléham_, Feb 21 2004
%C A053183 This sequence is a subsequence of A002383. These numbers are repunit primes 111_n, so they are Brazilian primes belonging to A085104. - _Bernard Schott_, Dec 21 2012
%C A053183 Also, primes in A060800. - _Zak Seidov_, Mar 21 2014
%C A053183 Also subsequence of A002061, A193574. - _Hartmut F. W. Hoft_, May 05 2017
%C A053183 As p^2 + p + 1 is the sum of divisors of p^2 for any prime p, this is a subsequence of A023195. - _Peter Munn_, Feb 16 2018
%H A053183 Zak Seidov, <a href="/A053183/b053183.txt">Table of n, a(n) for n = 1..1000</a>
%F A053183 a(n) = A053182(n)^2 + A053182(n) + 1.
%t A053183 a053183[n_] := Select[Map[Prime[#]^2 + Prime[#] + 1&, Range[n]], PrimeQ]
%t A053183 a053183[225] (* data *) (* _Hartmut F. W. Hoft_, May 05 2017 *)
%t A053183 Select[Table[p^2+p+1,{p,Prime[Range[300]]}],PrimeQ] (* _Harvey P. Dale_, Aug 15 2017 *)
%Y A053183 Cf. A002383, A002384, A023195, A053182, A060800, A065764, A085104, A182253, A185632.
%Y A053183 Cf. A002061, A193574. - _Hartmut F. W. Hoft_, May 05 2017
%K A053183 easy,nonn
%O A053183 1,1
%A A053183 _Enoch Haga_, Mar 01 2000