A190383 Numbers with prime factorization pqrst^5.
36960, 43680, 57120, 63840, 68640, 77280, 89760, 96096, 97440, 100320, 104160, 106080, 118560, 121440, 124320, 125664, 137760, 140448, 143520, 144480, 148512, 153120, 155040, 157920, 160160, 163680, 165984, 170016, 178080, 180960, 187110
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
- Will Nicholes, Prime Signatures
Programs
-
Mathematica
f[n_]:=Sort[Last/@FactorInteger[n]]=={1,1,1,1,5};Select[Range[500000],f] -
PARI
list(lim)=my(v=List(),t1,t2,t3,t4); forprime(p1=2,sqrtnint(lim\210, 5), t1=p1^5; forprime(p2=2,lim\(30*t1), if(p2==p1, next); t2=p2*t1; forprime(p3=2,lim\(6*t2), if(p3==p1 || p3==p2, next); t3=p3*t2; forprime(p4=2,lim\(2*t3), if(p4==p1 || p4==p2 || p4==p3, next); t4=p4*t3; forprime(p5=2,lim\t4, if(p5==p1 || p5==p2 || p5==p3 || p5==p4, next); listput(v, t4*p5)))))); Set(v) \\ Charles R Greathouse IV, Aug 25 2016