|
|
A179690
|
|
Numbers of the form p^2*q^2*r*s where p, q, r, and s are distinct primes.
|
|
7
|
|
|
1260, 1980, 2100, 2340, 2772, 2940, 3060, 3150, 3276, 3300, 3420, 3900, 4140, 4284, 4410, 4788, 4950, 5100, 5148, 5220, 5580, 5700, 5796, 5850, 6468, 6660, 6732, 6900, 7260, 7308, 7350, 7380, 7524, 7644, 7650, 7700, 7740, 7812, 7956, 8460, 8550, 8700
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 1, 2, 2}; Select[Range[10000], f]
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t1, t2, t3); forprime(p=2, sqrtint(lim\60), t1=p^2; forprime(q=2, sqrtint(lim\(6*t1)), if(q==p, next); t2=q^2*t1; forprime(r=2, lim\(2*t2), if(r==p || r==q, next); t3=r*t2; forprime(s=2, lim\t3, if(s==p || s==q || s==r, next); listput(v, t3*s))))); Set(v) \\ Charles R Greathouse IV, Aug 25 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|