This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A090253 #9 Aug 18 2019 01:45:17 %S A090253 2,3,7,23,163,3761,613049,2305677323,1413493177187867, %T A090253 3259059164857285852640107,4606657893577361399569662402327877981883, %U A090253 15013370627425459052324121468319040208855976676229499210665181583 %N A090253 a(1) = 2, a(2) = 3, a(n) = least prime greater than the product of two previous terms. %p A090253 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 %t A090253 nxt[{a_,b_}]:={b,NextPrime[a*b]}; Transpose[NestList[nxt,{2,3},15]] [[1]] (* _Harvey P. Dale_, Nov 24 2015 *) %K A090253 nonn %O A090253 1,1 %A A090253 _Amarnath Murthy_, Nov 27 2003 %E A090253 More terms from _Emeric Deutsch_, Feb 26 2005