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 A059792 #22 Aug 30 2025 10:06:10
%S A059792 1,3,4,12,73,317,2728,6826,7683,7950,14417,44436,63698
%N A059792 Numbers k such that floor(Pi^k) is prime.
%H A059792 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Pi-Prime.html">Pi-Prime</a>
%e A059792 Pi^3 = 31.0062766...; floor(Pi^3) = 31 is prime, hence 3 is a term.
%t A059792 Do[ If[ PrimeQ[ Floor[ Pi^n ] ], Print[n] ], {n, 0, 4000} ]
%t A059792 $MaxExtraPrecision = 10^6; Do[k = Floor[Pi^n]; If[PrimeQ[k], Print[n]], {n, 1, 15000}] (* _Ryan Propper_, Oct 21 2005 *)
%Y A059792 Cf. A100800, A077547.
%K A059792 hard,nonn,more,changed
%O A059792 1,2
%A A059792 _Naohiro Nomoto_, Feb 22 2001
%E A059792 More terms from _Vladeta Jovovic_, Feb 24 2001
%E A059792 One more term from _Robert G. Wilson v_, May 09 2001
%E A059792 a(8)-a(11) from _Ryan Propper_, Oct 21 2005
%E A059792 a(12)-a(13) from _Donovan Johnson_, Feb 05 2008