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 A111190 #20 Sep 29 2022 22:42:08
%S A111190 2,5,6,73,1547,2714,4937,5212,58775
%N A111190 Numbers k such that floor(Pi^k - e^k) is prime.
%C A111190 No more terms through 10000.
%C A111190 If it exists, a(10) > 90000. - _J.W.L. (Jan) Eerland_, Sep 29 2022
%e A111190 floor(Pi^6 - e^6) = 557 is prime, hence 6 is a term.
%t A111190 $MaxExtraPrecision = 10^6; Do[k = Floor[Pi^n - E^n]; If[PrimeQ[k], Print[n]], {n, 1, 10000}]
%t A111190 Select[Range[6000],PrimeQ[Floor[Pi^#-E^#]]&] (* _Harvey P. Dale_, Jun 02 2014 *)
%t A111190 ParallelTable[If[PrimeQ[Floor[Pi^k-E^k]],k,Nothing],{k,0,9*10^4}]//.{}->Nothing (* _J.W.L. (Jan) Eerland_, Sep 29 2022 *)
%Y A111190 Cf. A181052.
%K A111190 nonn,hard,more
%O A111190 1,1
%A A111190 _Ryan Propper_, Oct 23 2005
%E A111190 a(9) from _J.W.L. (Jan) Eerland_, Sep 29 2022