|
|
A076292
|
|
Perfect powers with squarefree root.
|
|
2
|
|
|
1, 4, 8, 9, 16, 25, 27, 32, 36, 49, 64, 81, 100, 121, 125, 128, 169, 196, 216, 225, 243, 256, 289, 343, 361, 441, 484, 512, 529, 625, 676, 729, 841, 900, 961, 1000, 1024, 1089, 1156, 1225, 1296, 1331, 1369, 1444, 1521, 1681, 1764, 1849, 2048, 2116, 2187
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
A001597(17) = 144 = (3*2^2)^2 is not a term.
|
|
MATHEMATICA
|
q[n_] := n == 1 || Length[(u = Union[FactorInteger[n][[;; , 2]]])] == 1 && u[[1]] > 1; Select[Range[2000], q] (* Amiram Eldar, Jan 01 2022 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|