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 A084853 #13 Mar 22 2023 08:15:19
%S A084853 1,2,3,4,5,27
%N A084853 Numbers k such that k^(k+1) + (k+1)^k + k(k+1) is prime.
%C A084853 a(7) > 10600. - _Michael S. Branicky_, Mar 21 2023
%t A084853 Do[If[PrimeQ[n^(n+1)+(n+1)^n+n(n+1)], Print[n]], {n, 0, 1000}]
%t A084853 Select[Range[30],PrimeQ[#^(#+1)+(#+1)^#+#(#+1)]&] (* _Harvey P. Dale_, May 28 2016 *)
%o A084853 (PARI) is(n)=ispseudoprime(n^(n+1)+(n+1)^n+n*(n+1)) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y A084853 Cf. A072179, A073499.
%K A084853 more,nonn
%O A084853 1,2
%A A084853 _Farideh Firoozbakht_, Jul 13 2003