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 A128450 #21 Nov 27 2024 10:34:41
%S A128450 3,9,273,399
%N A128450 Numbers k such that absolute value of 10^k - k^10 is prime.
%C A128450 a(5) > 10^5 if it exists. - _Michael S. Branicky_, Nov 27 2024
%t A128450 lst={};k=10;Do[If[PrimeQ[Abs[k^n-n^k]], AppendTo[lst, n]], {n, 0, 10^4}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 10 2008 *)
%t A128450 Select[Range[0, 10000], PrimeQ[10^# - #^10] &] (* _Vincenzo Librandi_, Apr 01 2015 *)
%o A128450 (Magma) [n: n in [0..500]| IsPrime(10^n-n^10)]; // _Vincenzo Librandi_, Apr 01 2015
%o A128450 (PARI) is(n)=isprime(abs(10^n-n^10)) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y A128450 Cf. A072180, A109387, A117705, A117706, A128447, A128448, A128449, A128451, A122003, A128453, A128454.
%K A128450 hard,more,nonn,less
%O A128450 1,1
%A A128450 _Alexander Adamchuk_, Mar 03 2007