A358895 Numbers k such that p(k)^p(k + 1) < p(k + 2)^p(k), where p(k) = prime(k).

1, 2, 3, 10, 33, 41, 45, 52, 60, 98, 113, 120, 262, 294, 296, 318, 343, 377, 408, 428, 444, 475, 477, 486, 572, 601, 673, 700, 774, 837, 870, 913, 934, 936, 944, 984, 1050, 1115, 1169, 1182, 1230, 1232, 1287, 1391, 1445, 1456, 1550, 1584, 1647, 1653, 1674

Offset

1,2

Links

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

Example

For k = 3, we have 78125 = p(3)^p(4) < p(5)^p(3) = 161051.

Mathematica

p[n_] := Prime[n];
u = Select[Range[3000], p[#]^p[# + 1] < p[# + 2]^p[#] &]  (* A358895 *)
Prime[u]  (* A358896 *)

Crossrefs

Cf. A000040, A053089, A358896.

Sequence in context: A080022 A192913 A364208 * A057146 A344573 A300127

Adjacent sequences: A358892 A358893 A358894 * A358896 A358897 A358898

Keyword

nonn

Author

Clark Kimberling, Dec 06 2022

Status

approved