A152446 a(0) = 1. a(1) = 2. For n >= 2, a(n) = the largest prime <= a(n-1)*a(n-2).

1, 2, 2, 3, 5, 13, 61, 787, 47981, 37761019, 1811811452611, 68415846686461570603, 123956614566609409301849965194431, 8480596737961958410971738003633556174455988528911421

Offset

0,2

Links

Table of n, a(n) for n=0..13.

Mathematica

a = {1, 2}; Do[AppendTo[a, Prime[PrimePi[a[[ -1]]*a[[ -2]]]]], {9}]; a (* Stefan Steinerberger, Dec 06 2008 *)

Crossrefs

Cf. A152445.

Sequence in context: A065843 A111264 A065994 * A265789 A055937 A090255

Adjacent sequences: A152443 A152444 A152445 * A152447 A152448 A152449

Keyword

nonn

Author

Leroy Quet, Dec 04 2008

Extensions

Extended by Ray Chandler and Stefan Steinerberger, Dec 05 2008

Status

approved