A090253 a(1) = 2, a(2) = 3, a(n) = least prime greater than the product of two previous terms.
2, 3, 7, 23, 163, 3761, 613049, 2305677323, 1413493177187867, 3259059164857285852640107, 4606657893577361399569662402327877981883, 15013370627425459052324121468319040208855976676229499210665181583
Offset: 1
Keywords
Programs
-
Maple
a:=proc(n) if n=1 then 2 elif n=2 then 3 else nextprime(a(n-1)*a(n-2)) fi end: seq(a(n),n=1..13); # Emeric Deutsch, Feb 26 2005
-
Mathematica
nxt[{a_,b_}]:={b,NextPrime[a*b]}; Transpose[NestList[nxt,{2,3},15]] [[1]] (* Harvey P. Dale, Nov 24 2015 *)
Extensions
More terms from Emeric Deutsch, Feb 26 2005