OFFSET
2,1
MATHEMATICA
PrimePrev[n_]:=Module[{k}, k=n-1; While[ !PrimeQ[k], k-- ]; k]; f[n_]:=n^5; lst={}; Do[AppendTo[lst, PrimePrev[f[n]]], {n, 5!}]; lst
NextPrime[Range[2, 30]^5, -1] (* Ray Chandler, Dec 08 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 25 2010
STATUS
approved