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 A358900 #22 Jul 17 2024 09:45:35 %S A358900 5,11,29,149,1151,1277,1931,1949,2129,2237,2267,2999,3251,3299,3821, %T A358900 4049,4481,4547,4721,5501,6197,6449,6761,6947,8999,9461,9719,10007, %U A358900 10037,10427,10937,11351,11549,11777,12071,13217,13829,13997,14591,15727,16183,17291 %N A358900 Primes prime(k) such that prime(k)^prime(k) > prime(k-1)^prime(k+1). %H A358900 Alois P. Heinz, <a href="/A358900/b358900.txt">Table of n, a(n) for n = 1..2000</a> (first 600 terms from Harvey P. Dale) %e A358900 For k = 3, we have prime(2) = 2, prime(3) = 5, prime(4) = 7, and 3125 = 5^5 > 3^7 = 2187. %t A358900 p[n_] := Prime[n]; %t A358900 u = Select[1 + Range[3000], p[#]^p[#] > p[# - 1]^p[# + 1] &] (* A358899 *) %t A358900 Prime[u] (* A358900 *) %t A358900 Select[Partition[Prime[Range[2000]],3,1],#[[2]]^#[[2]]>#[[1]]^#[[3]]&][[;;,2]] (* _Harvey P. Dale_, Oct 12 2023 *) %Y A358900 Cf. A000040, A053089, A358899. %K A358900 nonn %O A358900 1,1 %A A358900 _Clark Kimberling_, Dec 06 2022