|
Search: id:A051037
|
|
|
| A051037 |
|
5-smooth numbers: i.e. numbers whose prime divisors are all <= 5. |
|
+0
34
|
|
| 1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 16, 18, 20, 24, 25, 27, 30, 32, 36, 40, 45, 48, 50, 54, 60, 64, 72, 75, 80, 81, 90, 96, 100, 108, 120, 125, 128, 135, 144, 150, 160, 162, 180, 192, 200, 216, 225, 240, 243, 250, 256, 270, 288, 300, 320, 324, 360, 375, 384, 400, 405
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Sometimes called the Hamming sequence, since Hamming asked for an efficient algorithm to generate the list, in ascending order, of all numbers of the form 2^i3^j5^k for i,j,k >= 0. The problem was popularized by Edsger Dijkstra.
Successive numbers k such that 8 k = EulerPhi[30 k]. [From Artur Jasinski (grafix(AT)csl.pl), Nov 05 2008]
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..1000
M. J. Dominus, Infinite Lists in Perl.
Sci.math, Ugly numbers
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
Wikipedia, Regular number [From Artur Jasinski (grafix(AT)csl.pl), Nov 06 2008]
|
|
FORMULA
|
Let s(n)=Card(k | a(k)<n) and f(n) = ln(n*sqrt(30))^3/(6*ln(2)*ln(3)*ln(5)). Then s(n) = f(n) + O(lnln(n)). For example s(10000000)=768 is well approximated by f(10000000)=769, 3... - Benoit Cloitre (benoit7848c(AT)orange.fr), Dec 30 2001
|
|
MATHEMATICA
|
aa = {}; Do[If[8 n - EulerPhi[30 n] == 0, AppendTo[aa, n]], {n, 1, 405}]; aa [From Artur Jasinski (grafix(AT)csl.pl), Nov 05 2008]
|
|
PROGRAM
|
(PARI) test(n)= {m=n; forprime(p=2, 5, while(m%p==0, m=m/p)); return(m==1)} for(n=1, 500, if(test(n), print1(n", ")))
(PARI) a(n)=local(m); if(n<1, 0, n=a(n-1); until(if(m=n, forprime(p=2, 5, while(m%p==0, m/=p)); m==1), n++); n)
|
|
CROSSREFS
|
For p-smooth numbers with other values of p, see A003586, A002473, A051038, A080197, A080681, A080682, A080683.
Cf. A112757, A112758, A112759, A112763, A112764, A003593.
A159991, A159993, A159995. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 02 2009]
Adjacent sequences: A051034 A051035 A051036 this_sequence A051038 A051039 A051040
Sequence in context: A097752 A014866 A051661 this_sequence A070023 A035303 A018609
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com)
|
|
|
Search completed in 0.003 seconds
|
