|
%I #11 Nov 02 2020 01:58:29
%S 2,7,337,38272739,56062005704198360319209,
%T 176199995814327287356671209104585864397055039072110696028654438846269
%N a(1) = 2; a(n) is greatest prime < a(n-1)^3.
%C Exponent 3 analog of A059785.
%C Obverse of this is A051254.
%e a(5) = 62343227157465615355481 = a(4)^3 - 32 = 39651817^3 - 32 and there is no k < 32 such that 39651817^3 - k is prime.
%t a=2; Join[{2}, Table[a=a^3; While[ !PrimeQ[a], a=a-1]; a, {5}]] (* _T. D. Noe_, Nov 15 2006 *)
%Y Cf. A001358, A055496, A076656, A006992, A005384, A005385, A118908-A118913.
%K easy,nonn
%O 1,1
%A _Jonathan Vos Post_, May 05 2006
%E Corrected by _T. D. Noe_, Nov 15 2006
| 