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 A084852 #11 Aug 09 2024 08:28:50
%S A084852 2,5,6,7,8,9,14,37,81,143,302
%N A084852 Numbers k such that k^(k+1) + (k+1)^k - k(k+1) is prime.
%C A084852 a(12) > 15000. - _Michael S. Branicky_, Aug 09 2024
%t A084852 Do[If[PrimeQ[n^(n+1)+(n+1)^n-n(n+1)], Print[n]], {n, 1000}]
%o A084852 (PARI) is(n)=ispseudoprime(n^(n+1)+(n+1)^n-n*(n+1)) \\ _Charles R Greathouse IV_, Jun 12 2017
%Y A084852 Cf. A072179, A073499.
%K A084852 more,nonn
%O A084852 1,1
%A A084852 _Farideh Firoozbakht_, Jul 13 2003