cp's OEIS Frontend

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

%I A358895 #5 Dec 15 2022 14:00:21
%S A358895 1,2,3,10,33,41,45,52,60,98,113,120,262,294,296,318,343,377,408,428,
%T A358895 444,475,477,486,572,601,673,700,774,837,870,913,934,936,944,984,1050,
%U A358895 1115,1169,1182,1230,1232,1287,1391,1445,1456,1550,1584,1647,1653,1674
%N A358895 Numbers k such that p(k)^p(k + 1) < p(k + 2)^p(k), where p(k) = prime(k).
%e A358895 For k = 3, we have 78125 = p(3)^p(4) < p(5)^p(3) = 161051.
%t A358895 p[n_] := Prime[n];
%t A358895 u = Select[Range[3000], p[#]^p[# + 1] < p[# + 2]^p[#] &]  (* A358895 *)
%t A358895 Prime[u]  (* A358896 *)
%Y A358895 Cf. A000040, A053089, A358896.
%K A358895 nonn
%O A358895 1,2
%A A358895 _Clark Kimberling_, Dec 06 2022