A358899 Numbers k such that p(k)^p(k) > p(k-1)^p(k+1), where p(k) = prime(k).

3, 5, 10, 35, 190, 206, 294, 296, 320, 332, 336, 430, 458, 463, 530, 558, 608, 616, 636, 726, 805, 837, 870, 891, 1117, 1171, 1198, 1230, 1232, 1275, 1328, 1371, 1391, 1410, 1445, 1571, 1634, 1651, 1709, 1832, 1880, 1987, 2028, 2066, 2075, 2244, 2249, 2311

Offset

1,1

Links

Table of n, a(n) for n=1..48.

Example

For k = 3, we have prime(2) = 2, prime(3) = 5, prime(4) = 7, and 3125 = 5^5 > 3^7 = 2187.

Mathematica

p[n_] := Prime[n];
u = Select[1 + Range[3000], p[#]^p[#] > p[# - 1]^p[# + 1] &]  (* A358899 *)
Prime[u]  (* A358900 *)

Crossrefs

Cf. A000040, A053089, A358900.

Sequence in context: A000214 A185645 A060955 * A317338 A305510 A024329

Adjacent sequences: A358896 A358897 A358898 * A358900 A358901 A358902

Keyword

nonn

Author

Clark Kimberling, Dec 06 2022

Status

approved