|
| |
|
|
A077037
|
|
Largest prime < n^3.
|
|
3
| |
|
|
7, 23, 61, 113, 211, 337, 509, 727, 997, 1327, 1723, 2179, 2741, 3373, 4093, 4909, 5827, 6857, 7993, 9257, 10639, 12163, 13807, 15619, 17573, 19681, 21943, 24379, 26993, 29789, 32749, 35933, 39301, 42863, 46649, 50651, 54869, 59281, 63997
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
MATHEMATICA
| PrimePrev[n_]:=Module[{k}, k=n-1; While[ !PrimeQ[k], k-- ]; k]; f[n_]:=n^3; lst={}; Do[AppendTo[lst, PrimePrev[f[n]]], {n, 5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 25 2010]
Table[ NextPrime[ n^3, -1], {n, 2, 40}] - Robert G. Wilson v, Aug 17 2010
|
|
|
CROSSREFS
| Cf. A053001, A014220, A000578.
Sequence in context: A126284 A140096 A096345 * A201110 A003261 A066187
Adjacent sequences: A077034 A077035 A077036 * A077038 A077039 A077040
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Oct 21 2002
|
| |
|
|
