|
|
A179667
|
|
Products of the 5th power of a prime and 2 distinct primes (p^5*q*r).
|
|
10
|
|
|
480, 672, 1056, 1120, 1248, 1632, 1760, 1824, 2080, 2208, 2430, 2464, 2720, 2784, 2912, 2976, 3040, 3402, 3552, 3680, 3808, 3936, 4128, 4256, 4512, 4576, 4640, 4960, 5088, 5152, 5346, 5664, 5856, 5920, 5984, 6318, 6432, 6496, 6560, 6688, 6816, 6880
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 1, 5}; Select[Range[10000], f]
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t); forprime(p=2, (lim\6)^(1/5), forprime(q=2, sqrt(lim\p^5), if(p==q, next); t=p^5*q; forprime(r=q+1, lim\t, if(p==r, next); listput(v, t*r)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 20 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|