A158061 - OEIS

%I #6 Nov 18 2021 19:29:47

%S 2,2,5,251,5,3137,7,823547,67,531457,11,13,13,17,17,17,17,19,19,23,

%T 401,2,487,279847,577,9765629,677,387420499,2,853,27011,2,1031,2,1163,

%U 37,46663,50671,2,1523,41,43,74093,2,1949,47,4477457,4879687,5308417,2

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

%e 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).

%t 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 *)

%Y Cf. A007491, A156615.

%K nonn,base

%O 1,1

%A _Juri-Stepan Gerasimov_, Mar 12 2009

%E More terms from _R. J. Mathar_, Mar 17 2009

%E Edited by _Charles R Greathouse IV_, Mar 25 2010