|
| |
|
|
A075433
|
|
Perfect powers pp(n) with perfect power index n.
|
|
0
| |
|
|
1, 9, 32, 36, 128, 324, 361, 529, 729, 1444, 2401, 3969, 6400, 9261, 10000, 10609, 13689, 19321, 26569, 32761, 35721, 42025, 47089, 61009, 77841, 87025, 97336, 120409, 147456, 177241, 199809, 214369, 255025, 302500, 357604, 417316, 485809
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| 9 is OK because pp(4)=9 and 4 is itself pp.
|
|
|
MATHEMATICA
| pp = Select[ Range[10^7], Apply[GCD, Last[ Transpose[ FactorInteger[ # ]]]] > 1 &]; pp[[ Take[pp, {1, 37}]]]
|
|
|
CROSSREFS
| Sequence in context: A159279 A048547 A141573 * A018833 A130510 A120498
Adjacent sequences: A075430 A075431 A075432 * A075434 A075435 A075436
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Oct 11 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 14 2002
|
| |
|
|
