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