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 A158400 #15 Jan 07 2025 09:51:59
%S A158400 7,7151,109873,956953279,3497141354765072424170242943188801
%N A158400 Primes of the form (k+1)^k - k^(k-1).
%C A158400 Next term too large to be included (1652 digits)
%e A158400 3^2-2^1 = 9-2 = 7.
%p A158400 P:=proc(i) local a,n; for n from 2 by 1 to i do a:=n^(n-1)-(n-1)^(n-2); if isprime(a) then print(a); fi; od; end: P(2000);
%t A158400 Select[Table[(n + 1)^n - n^(n - 1), {n, 1000}], PrimeQ] (* _Michael De Vlieger_, Apr 22 2015 *)
%o A158400 (PARI) select(isprime, vector(9,n,(n+1)^n-n^(n-1))) \\ _Charles R Greathouse IV_, Apr 22 2015
%Y A158400 Primes in A178922.
%Y A158400 Cf. A054463.
%K A158400 easy,nonn
%O A158400 1,1
%A A158400 _Paolo P. Lava_ & _Giorgio Balzarotti_, Mar 18 2009