|
| |
|
|
A062043
|
|
Numbers for which the product of the digits is 10 times their sum.
|
|
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; refs; listen; history; internal format)
|
|
|
|
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
|
|
|
PROG
| (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: A020364 A093058 A201257 * A124620 A121970 A055162
Adjacent sequences: A062040 A062041 A062042 * 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
|
| |
|
|
