OFFSET
1,1
MATHEMATICA
nxt[{a_, b_}]:=Module[{k=a}, While[b^k<=a^b, k=NextPrime[k]]; {b, k}]; #[[1]]^#[[2]]&/@ NestList[ nxt, {2, 2}, 20] (* Harvey P. Dale, Jun 12 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 13 2009
EXTENSIONS
More terms from Michel Marcus, Sep 05 2019
STATUS
approved