The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A110290 7-almost primes p*q*r*s*t*u*v not relatively prime to p+q+r+s+t+u+v. 12
128, 192, 288, 480, 648, 672, 800, 1008, 1056, 1080, 1120, 1200, 1248, 1458, 1512, 1568, 1620, 1632, 1760, 1800, 1824, 1872, 2080, 2187, 2208, 2376, 2430, 2464, 2520, 2640, 2720, 2736, 2784, 2800, 2808, 2912, 2976, 3000, 3040, 3402, 3528, 3552, 3564 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
The primes p, q, r, s, t, u, v are not necessarily distinct. The 7-almost primes are A046308. The converse, A110289, is 7-almost primes p*q*r*s*t*u*v which are relatively prime to p+q+r+s+t+u+v.
LINKS
EXAMPLE
800 = 2^5 * 5^2 is in this sequence because the sum of prime factors 2 + 2 + 2 + 2 + 2 + 5 + 5 = 20 is not relatively prime to 800 (in fact, it is a divisor of 800).
MATHEMATICA
Select[Range[4000], PrimeOmega[#]==7&&!CoprimeQ[Total[Flatten[Table[ #[[1]], #[[2]]]&/@ FactorInteger[#]]], #]&] (* Harvey P. Dale, Apr 30 2018 *)
PROG
(PARI) sopfr(n)=local(f); if(n<1, 0, f=factor(n); sum(k=1, matsize(f)[1], f[k, 1]*f[k, 2])) for(n=1, 4000, if(bigomega(n)==7&&gcd(n, sopfr(n))>1, print1(n, ", "))) (Shepherd)
CROSSREFS
Cf. A001414 (sopfr(n)).
Sequence in context: A046307 A036331 A046308 * A045028 A255997 A256821
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jul 18 2005
EXTENSIONS
Extended by Ray Chandler and Rick L. Shepherd, Jul 20 2005
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 15 03:12 EDT 2024. Contains 373402 sequences. (Running on oeis4.)