|
| |
|
|
A179703
|
|
Numbers of the form p^6*q^2*r where p, q, and r are distinct primes.
|
|
2
|
|
|
|
2880, 4032, 4800, 6336, 7488, 9408, 9792, 10944, 11200, 13248, 14580, 15680, 16704, 17600, 17856, 20412, 20800, 21312, 23232, 23616, 24768, 27072, 27200, 30400, 30528, 32076, 32448, 33984, 34496, 35136, 36450, 36800, 37908, 38592, 38720
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n = 1..1000
Will Nicholes, Prime Signatures
|
|
|
MATHEMATICA
|
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 2, 6}; Select[Range[40000], f]
|
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t1, t2); forprime(p=2, (lim\12)^(1/6), t1=p^6; forprime(q=2, sqrt(lim\t1), if(p==q, next); t2=t1*q^2; forprime(r=2, lim\t2, if(p==r||q==r, next); listput(v, t2*r)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 24 2011
|
|
|
CROSSREFS
|
Sequence in context: A101999 A066174 A175750 * A260369 A134856 A066407
Adjacent sequences: A179700 A179701 A179702 * A179704 A179705 A179706
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Jul 24 2010
|
|
|
STATUS
|
approved
|
| |
|
|
