A358900 - OEIS

%I #22 Jul 17 2024 09:45:35

%S 5,11,29,149,1151,1277,1931,1949,2129,2237,2267,2999,3251,3299,3821,

%T 4049,4481,4547,4721,5501,6197,6449,6761,6947,8999,9461,9719,10007,

%U 10037,10427,10937,11351,11549,11777,12071,13217,13829,13997,14591,15727,16183,17291

%N Primes prime(k) such that prime(k)^prime(k) > prime(k-1)^prime(k+1).

%H 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 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 *)

%t Select[Partition[Prime[Range[2000]],3,1],#[[2]]^#[[2]]>#[[1]]^#[[3]]&][[;;,2]] (* _Harvey P. Dale_, Oct 12 2023 *)

%Y Cf. A000040, A053089, A358899.

%K nonn

%O 1,1

%A _Clark Kimberling_, Dec 06 2022