OFFSET
1,1
LINKS
Michel Marcus, Table of n, a(n) for n = 1..5000
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
Floor van Lamoen, Sep 23 2002
EXTENSIONS
More terms from Matthew Conroy, Oct 15 2002
Offset corrected by Michel Marcus, Sep 09 2017
STATUS
approved