OFFSET
1,1
LINKS
PROG
(PARI) isA000430(n)=isprime(n) || (issquare(n, &n) && isprime(n))
t=0; for(n=2, 1e6, t+=1/(n-1); if(!isA000430(n) && gcd(n, numerator(t))>1, print1(gcd(n, numerator(t))", "))) \\ Charles R Greathouse IV, Sep 04 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Sep 04 2013
EXTENSIONS
a(14)-a(15) from Charles R Greathouse IV, Sep 04 2013
a(16)-a(21) from Charles R Greathouse IV, Sep 09 2013
STATUS
approved