A158061 a(1)=2, a(n+1) is the smallest prime > n^smallest digit of a(n).

2, 2, 5, 251, 5, 3137, 7, 823547, 67, 531457, 11, 13, 13, 17, 17, 17, 17, 19, 19, 23, 401, 2, 487, 279847, 577, 9765629, 677, 387420499, 2, 853, 27011, 2, 1031, 2, 1163, 37, 46663, 50671, 2, 1523, 41, 43, 74093, 2, 1949, 47, 4477457, 4879687, 5308417, 2

Offset

1,1

Links

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

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

Cf. A007491, A156615.

Sequence in context: A353534 A036739 A158311 * A270546 A163119 A091085

Adjacent sequences: A158058 A158059 A158060 * A158062 A158063 A158064

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