A118910 a(1) = 2; a(n) is greatest prime < a(n-1)^3.
2, 7, 337, 38272739, 56062005704198360319209, 176199995814327287356671209104585864397055039072110696028654438846269
Offset: 1
Examples
a(5) = 62343227157465615355481 = a(4)^3 - 32 = 39651817^3 - 32 and there is no k < 32 such that 39651817^3 - k is prime.
Programs
-
Mathematica
a=2; Join[{2}, Table[a=a^3; While[ !PrimeQ[a], a=a-1]; a, {5}]] (* T. D. Noe, Nov 15 2006 *)
Extensions
Corrected by T. D. Noe, Nov 15 2006
Comments