|
Search: id:A076405
|
|
|
| A076405 |
|
Next perfect power having the same least root of n-th perfect power, A001597. |
|
+0
2
|
|
| 1, 8, 16, 27, 32, 125, 81, 64, 216, 343, 128, 243, 1000, 1331, 625, 256, 1728, 2197, 2744, 1296, 3375, 729, 512, 4913, 5832, 2401, 6859, 8000, 9261, 10648, 1024, 12167, 13824, 3125, 17576, 2187, 21952, 24389, 27000, 29791, 10000, 2048, 35937, 39304
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
A025478(a(n)) = A025478(n); A001597(a(n)) = A025478(n)*A001597(n).
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Perfect Powers.
|
|
MATHEMATICA
|
ppQ[n_] := GCD @@ Last /@ FactorInteger@# > 1; f[n_] := Block[{fi = Transpose@ FactorInteger@ n}, fi2 = fi[[2]]; Times @@ (fi[[1]]^(fi[[2]] (1 + 1/GCD @@ fi[[2]])))]; lst = Join[{1}, Select[ Range@ 1848, ppQ@# &]]; f /@ lst - Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 3 2008
|
|
CROSSREFS
|
Sequence in context: A076467 A111231 A111307 this_sequence A099997 A053093 A039288
Adjacent sequences: A076402 A076403 A076404 this_sequence A076406 A076407 A076408
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Oct 09 2002
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 3 2008
|
|
|
Search completed in 0.002 seconds
|
