A179664 Products of the 7th power of a prime and a distinct prime (p^7*q).

384, 640, 896, 1408, 1664, 2176, 2432, 2944, 3712, 3968, 4374, 4736, 5248, 5504, 6016, 6784, 7552, 7808, 8576, 9088, 9344, 10112, 10624, 10935, 11392, 12416, 12928, 13184, 13696, 13952, 14464, 15309, 16256, 16768, 17536, 17792, 19072, 19328

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 23 2010

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000
• Will Nicholes, Prime Signatures
• Index to sequences related to prime signature

Programs

Mathematica

f[n_]:=Sort[Last/@FactorInteger[n]]=={1,7};Select[Table[n,{n,8!}],f[ # ]&]

PARI

list(lim)=my(v=List(),t);forprime(p=2,(lim\2)^(1/7),t=p^7;forprime(q=2,lim\t,if(p==q,next);listput(v,t*q)));vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 20 2011