|
Search: id:A062043
|
|
|
| A062043 |
|
Numbers for which the product of the digits is 10 times their sum. |
|
+0
2
|
|
| 459, 495, 549, 594, 945, 954, 1566, 1656, 1665, 2259, 2295, 2355, 2529, 2535, 2553, 2592, 2925, 2952, 3255, 3525, 3552, 5166, 5229, 5235, 5253, 5292, 5325, 5352, 5523, 5532, 5616, 5661, 5922, 6156, 6165, 6516, 6561, 6615, 6651, 9225, 9252, 9522
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,500
|
|
EXAMPLE
|
594 belongs to the sequence as (5*9*4)/(5+9+4) = 180/18 = 10.
|
|
MATHEMATICA
|
Select[Range[10000], Times @@ IntegerDigits[ # ] == 10 Plus @@ IntegerDigits[ # ] &] - Tanya Khovanova (tanyakh(AT)yahoo.com), Dec 25 2006
|
|
PROGRAM
|
(PARI) SumD(x)= { s=0; while (x>9, s=s+x-10*(x\10); x\=10); return(s + x) } ProdD(x)= { p=1; while (x>9, p=p*(x-10*(x\10)); x\=10); return(p*x) } { n=0; for (m=1, 10^7, if (ProdD(m)==10*SumD(m), write("b062043.txt", n++, " ", m); if (n==500, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 30 2009]
|
|
CROSSREFS
|
Sequence in context: A142828 A020364 A093058 this_sequence A124620 A121970 A055162
Adjacent sequences: A062040 A062041 A062042 this_sequence A062044 A062045 A062046
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 28 2001
|
|
EXTENSIONS
|
More terms from Harvey P. Dale (hpd1(AT)nyu.edu) and Larry Reeves (larryr(AT)acm.org), Jul 06 2001
|
|
|
Search completed in 0.002 seconds
|
