OFFSET
1,1
COMMENTS
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
48 is in this sequence because 48 = 2^4 * 3, which has no factors in common with 2 + 2 + 2 + 2 + 3 = 11.
PROG
(PARI) list(lim)=my(v=List()); forprime(p=2, lim\16, forprime(q=2, min(p, lim\8\p), my(pq=p*q); forprime(r=2, min(lim\pq\4, q), my(pqr=pq*r); forprime(s=2, min(lim\pqr\2, r), my(pqrs=pqr*s, n); forprime(t=2, min(lim\pqrs, s), n=pqrs*t; if(gcd(n, p+q+r+s+t)==1, listput(v, n))))))); Set(v) \\ Charles R Greathouse IV, Jan 31 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jul 17 2005
EXTENSIONS
Extended by Ray Chandler, Jul 20 2005
Incorrect formula and comment of Sep 2009 related to A002033 deleted - R. J. Mathar, Oct 14 2009
STATUS
approved