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 A358899 #11 Jul 17 2024 08:56:15 %S A358899 3,5,10,35,190,206,294,296,320,332,336,430,458,463,530,558,608,616, %T A358899 636,726,805,837,870,891,1117,1171,1198,1230,1232,1275,1328,1371,1391, %U A358899 1410,1445,1571,1634,1651,1709,1832,1880,1987,2028,2066,2075,2244,2249,2311 %N A358899 Numbers k such that p(k)^p(k) > p(k-1)^p(k+1), where p(k) = prime(k). %e A358899 For k = 3, we have prime(2) = 2, prime(3) = 5, prime(4) = 7, and 3125 = 5^5 > 3^7 = 2187. %t A358899 p[n_] := Prime[n]; %t A358899 u = Select[1 + Range[3000], p[#]^p[#] > p[# - 1]^p[# + 1] &] (* A358899 *) %t A358899 Prime[u] (* A358900 *) %Y A358899 Cf. A000040, A053089, A358900. %K A358899 nonn %O A358899 1,1 %A A358899 _Clark Kimberling_, Dec 06 2022