OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
For k = 3, we have 5^7 = p(3)^p(4) < p(5)^p(3) = 11^5.
MATHEMATICA
p[n_] := Prime[n];
u = Select[Range[3000], p[#]^p[# + 1] < p[# + 2]^p[#] &] (* A358895 *)
Prime[u] (* A358896 *)
Select[Partition[Prime[Range[1500]], 3, 1], #[[1]]^#[[2]]<#[[3]]^#[[1]]&][[All, 1]] (* Harvey P. Dale, Dec 17 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 06 2022
STATUS
approved