OFFSET
1,1
COMMENTS
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) is(n)=my(f=factor(n)[, 2]); #f>1 && gcd(vecsum(f), #f)==1 \\ Charles R Greathouse IV, Oct 19 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 28 2003
STATUS
approved