Search: id:A080197 Results 1-1 of 1 results found. %I A080197 %S A080197 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18,20,21,22,24,25,26,27,28,30, %T A080197 32,33,35,36,39,40,42,44,45,48,49,50,52,54,55,56,60,63,64,65,66,70,72, %U A080197 75,77,78,80,81,84,88,90,91,96,98,99,100,104,105,108,110,112,117,120 %N A080197 13-smooth numbers: i.e. numbers whose prime divisors are all <= 13. %C A080197 Numbers of the form 2^r*3^s*5^t*7^u*11^v*13^w with r, s, t, u, v, w > = 0. %e A080197 33 = 3*11 and 39 = 3*13 are terms but 34 = 2*17 is not. %o A080197 (PARI) test(n)= {m=n; forprime(p=2,13, while(m%p==0,m=m/p)); return(m==1)} for(n=1,200,if(test(n),print1(n","))) %Y A080197 Cf. A000079, A080196. For p-smooth numbers with other values of p, see A003586, A051037, A002473, A051038, A080681, A080682, A080683. %Y A080197 Sequence in context: A023810 A102800 A072676 this_sequence A115847 A032966 A122937 %Y A080197 Adjacent sequences: A080194 A080195 A080196 this_sequence A080198 A080199 A080200 %K A080197 easy,nonn %O A080197 1,2 %A A080197 Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Feb 10 2003 Search completed in 0.001 seconds