login
a(n+1) = nextprime(a(n)^2). Smallest prime following the square of previous prime. Initial value = 2.
3

%I #36 May 27 2024 09:57:08

%S 2,5,29,853,727613,529420677791,280286254072681840639693,

%T 78560384222095957698731679318817728959447134363

%N a(n+1) = nextprime(a(n)^2). Smallest prime following the square of previous prime. Initial value = 2.

%H Charles R Greathouse IV, <a href="/A059784/b059784.txt">Table of n, a(n) for n = 1..12</a>

%H Kaisa Matomäki, <a href="http://users.utu.fi/ksmato/papers/Primerepfunc.pdf">Prime-representing functions</a>, Acta Math. Hungar. 128 (2010), pp. 307-314.

%F a(n) = floor[1.5246999605380943599233635756884211622202236231...^(2^n)], similar to Mills Primes A051254. - _Henry Bottomley_, Oct 19 2003

%t p=2; lst={p}; Do[p=NextPrime[p*p]; AppendTo[lst,p], {n,8}]; lst (* _Vladimir Joseph Stephan Orlovsky_, May 27 2009 *)

%t NestList[NextPrime[#^2] &, 2, 7] (* _Michael De Vlieger_, Nov 02 2017 *)

%Y Cf. A006992, A055496, A005384, A005385, A112597.

%K nonn

%O 1,1

%A _Labos Elemer_, Feb 22 2001

%E Changed offset to 1 to parallel other such sequences. - _Robert G. Wilson v_, Nov 15 2012