A065514 Largest prime power < prime(n).

1, 2, 4, 5, 9, 11, 16, 17, 19, 27, 29, 32, 37, 41, 43, 49, 53, 59, 64, 67, 71, 73, 81, 83, 89, 97, 101, 103, 107, 109, 125, 128, 131, 137, 139, 149, 151, 157, 163, 169, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 243, 256, 257, 263, 269, 271

Offset

1,2

Links

Table of n, a(n) for n=1..59.

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 *)

Crossrefs

A000040, A000961.

Sequence in context: A124254 A192615 A258652 * A152186 A085765 A211521

Adjacent sequences: A065511 A065512 A065513 * A065515 A065516 A065517

Keyword

nonn

Author

Reinhard Zumkeller, Nov 27 2001

Status

approved