|
14, 15, 28, 39, 45, 46, 55, 56, 66, 75, 87, 92, 94, 98, 112, 117, 132, 135, 155, 158, 183, 184, 186, 188, 196, 198, 203, 224, 225, 247, 255, 261, 264, 275, 285, 290, 291, 295, 299, 316, 322, 323, 334, 351, 354, 357, 368, 372, 375, 376, 392, 396, 405, 418, 429
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(PARI) isok(n) = {my(f=factor(n)); ispower(sum(k=1, #f~, f[k, 1])); } \\ Michel Marcus, Sep 09 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|