OFFSET
1,1
EXAMPLE
2, 2(>1=1^2), 5(>4=2^2), 251(>241=3^5), 5(>4=4^1), 3137(>3125=5^5), 7(>6=6^1).
MATHEMATICA
nxt[{n_, a_}]:={n+1, NextPrime[(n+1)^Min[IntegerDigits[a]]]}; Join[ {2}, NestList[ nxt, {1, 2}, 50][[All, 2]]] (* Harvey P. Dale, Nov 18 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Mar 12 2009
EXTENSIONS
More terms from R. J. Mathar, Mar 17 2009
Edited by Charles R Greathouse IV, Mar 25 2010
STATUS
approved