|
Search: id:A076469
|
|
|
| A076469 |
|
Perfect powers m^k where m is an integer and k > 4. |
|
+0
4
|
|
| 1, 32, 64, 128, 243, 256, 512, 729, 1024, 2048, 2187, 3125, 4096, 6561, 7776, 8192, 15625, 16384, 16807, 19683, 32768, 46656, 59049, 65536, 78125, 100000, 117649, 131072, 161051, 177147, 248832, 262144, 279936, 371293, 390625, 524288, 531441
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
If p|n when at least p^5|n.
|
|
MATHEMATICA
|
a = {1}; Do[ If[ Apply[ GCD, Last[ Transpose[ FactorInteger[n]]]] > 4, a = Append[a, n]; Print[n]], {n, 2, 537823}]; a
|
|
CROSSREFS
|
Cf. A001597, A076467, A076468 and A076470.
Sequence in context: A116318 A122616 A069492 this_sequence A110562 A045048 A132773
Adjacent sequences: A076466 A076467 A076468 this_sequence A076470 A076471 A076472
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 14 2002
|
|
|
Search completed in 0.002 seconds
|
