A189987 - OEIS
192, 320, 448, 704, 832, 1088, 1216, 1458, 1472, 1856, 1984, 2368, 2624, 2752, 3008, 3392, 3645, 3776, 3904, 4288, 4544, 4672, 5056, 5103, 5312, 5696, 6208, 6464, 6592, 6848, 6976, 7232, 8019, 8128, 8384, 8768, 8896, 9477, 9536, 9664, 10048, 10432, 10688
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]=={1, 6}; Select[Range[30000], f]
PROG
(PARI) list(lim)=my(v=List(), t); forprime(p=2, (lim\2)^(1/6), t=p^6; forprime(q=2, lim\t, if(p==q, next); listput(v, t*q))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 20 2011