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 A152445 #15 Jun 30 2020 14:50:42
%S A152445 1,1,2,2,5,11,59,653,38543,25168589,970072925867,24415366771173991757,
%T A152445 23684686279828682858246730078719,
%U A152445 578270302382209771209755703072864217352250067119367
%N A152445 a(0) = a(1) = 1. For n >= 2, a(n) = the smallest prime >= a(n-1)*a(n-2).
%p A152445 A152445 := proc(n) option remember ; if n <= 1 then 1; else nextprime(procname(n-1)*procname(n-2)-1) ; fi; end: for n from 0 to 15 do printf("%d,",A152445(n)) ; od; # _R. J. Mathar_, Dec 05 2008
%t A152445 a = {1, 1, 2, 2}; Do[AppendTo[a, Prime[PrimePi[a[[ -1]]*a[[ -2]]] + 1]], {7}]; a (* _Stefan Steinerberger_, Dec 06 2008 *)
%t A152445 nxt[{a_,b_}]:={b,NextPrime[a*b-1]}; NestList[nxt,{1,1},15][[All,1]] (* _Harvey P. Dale_, Jun 30 2020 *)
%Y A152445 Cf. A090253, A152446.
%K A152445 nonn
%O A152445 0,3
%A A152445 _Leroy Quet_, Dec 04 2008
%E A152445 Extended beyond a(7) by _R. J. Mathar_, _Stefan Steinerberger_ and _Ray Chandler_, Dec 05 2008