|
|
A080193
|
|
5-smooth numbers which are not 3-smooth.
|
|
13
|
|
|
5, 10, 15, 20, 25, 30, 40, 45, 50, 60, 75, 80, 90, 100, 120, 125, 135, 150, 160, 180, 200, 225, 240, 250, 270, 300, 320, 360, 375, 400, 405, 450, 480, 500, 540, 600, 625, 640, 675, 720, 750, 800, 810, 900, 960, 1000, 1080, 1125, 1200, 1215, 1250, 1280, 1350
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Numbers of the form 2^r*3^s*5^t with r, s >= 0, t > 0.
|
|
LINKS
|
|
|
FORMULA
|
Sum_{n>=1} 1/a(n) = 3/4. (End)
|
|
EXAMPLE
|
15 = 3*5 is a term but 18 = 2*3^2 is not.
|
|
MATHEMATICA
|
Select[Range[1000], FactorInteger[#][[-1, 1]] == 5 &] (* Amiram Eldar, Nov 10 2020 *)
|
|
PROG
|
(PARI) {m=1440; z=[]; for(r=0, floor(log(m)/log(2)), a=2^r; for(s=0, floor(log(m/a)/log(3)), b=a*3^s; for(t=1, floor(log(m/b)/log(5)), z=concat(z, b*5^t)))); z=vecsort(z); for(i=1, length(z), print1(z[i], ", "))}
(PARI) list(lim)=my(v=List(), x=1, y, z); while((x*=5)<=lim, y=x/3; while((y*=3)<=lim, z=y/2; while((z*=2)<=lim, listput(v, z)))); Set(v) \\ Charles R Greathouse IV, Mar 19 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|