OFFSET
1,2
MATHEMATICA
lpp[n_]:=Module[{k=n-1}, While[!PrimePowerQ[k], k--]; k]; Join[{1}, Table[ lpp[ n], {n, Prime[Range[2, 60]]}]] (* Harvey P. Dale, Nov 24 2018 *)
PROG
(Python)
from sympy import factorint, prime
def A065514(n): return next(filter(lambda m:len(factorint(m))<=1, range(prime(n)-1, 0, -1))) # Chai Wah Wu, Oct 25 2024
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Reinhard Zumkeller, Nov 27 2001
STATUS
approved