login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A060845 Largest prime < a nontrivial power of a prime. 2
3, 7, 7, 13, 23, 23, 31, 47, 61, 79, 113, 113, 127, 167, 241, 251, 283, 337, 359, 509, 523, 619, 727, 839, 953, 1021, 1327, 1367, 1669, 1847, 2039, 2179, 2179, 2207, 2399, 2803, 3121, 3469, 3719, 4093, 4483, 4909, 5039, 5323, 6229, 6553, 6857, 6883, 7919 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
FORMULA
a(n) = prevprime[A025475(n)] = A007917[A025475(n)] = Max{p| p < A025475(n)}
EXAMPLE
78125=5^7 follows 78121
MATHEMATICA
Take[NextPrime[#, -1]&/@Union[Flatten[Table[Prime[p]^n, {n, 2, 20}, {p, 25}]]], 50] (* Harvey P. Dale, Mar 26 2012 *)
PROG
(PARI) { m=1; for (n=1, 1000, m++; while(sigma(m)*eulerphi(m)*(1 - isprime(m)) <= (m - 1)^2, m++); write("b060845.txt", n, " ", precprime(m - 1)); ) } \\ Harry J. Smith, Jul 19 2009
CROSSREFS
Sequence in context: A064829 A290649 A118259 * A059478 A175329 A081218
KEYWORD
nonn
AUTHOR
Labos Elemer, May 03 2001
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 21 06:29 EDT 2024. Contains 371850 sequences. (Running on oeis4.)