OFFSET
1,1
COMMENTS
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
160 is in this sequence because 160 = 2^5 * 5, the sum of whose prime factors is 2 + 2 + 2 + 2 + 2 + 5 = 15 = 3 * 5, which has a prime factor in common with 160.
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); forprime(t=2, min(lim\pqrs, s), my(pqrst=pqrs*t, n); forprime(u=2, min(lim\pqrst, t), n=pqrst*u; if(gcd(n, p+q+r+s+t+u)>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
STATUS
approved