A075433 Perfect powers pp(n) with perfect power index n.

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

Offset

1,2

Links

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

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: A048547 A351713 A141573 * A018833 A130510 A120498

Adjacent sequences: A075430 A075431 A075432 * A075434 A075435 A075436

Keyword

easy,nonn

Author

Zak Seidov, Oct 11 2002

Extensions

Edited and extended by Robert G. Wilson v, Oct 14 2002

Status

approved