|
| |
|
|
A062331
|
|
Product of the sum and the product of the digits of n (0 is not to be considered a factor in the product).
|
|
1
| |
|
|
1, 4, 9, 16, 25, 36, 49, 64, 81, 1, 2, 6, 12, 20, 30, 42, 56, 72, 90, 4, 6, 16, 30, 48, 70, 96, 126, 160, 198, 9, 12, 30, 54, 84, 120, 162, 210, 264, 324, 16, 20, 48, 84, 128, 180, 240, 308, 384, 468, 25, 30, 70, 120, 180, 250, 330, 420, 520, 630, 36, 42, 96, 162, 240, 330
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
EXAMPLE
| a(49) = (4+9)*(4*9) = 13*36 = 458.
|
|
|
MATHEMATICA
| psd[n_]:=Module[{idnx0=Select[IntegerDigits[n], #>0&]}, Times@@idnx0 Total[idnx0]]
psd/@Range[90] (* From Harvey P. Dale, Feb 24 2011 *)
|
|
|
PROG
| (PARI) SumD(x)= { s=0; while (x>9, s+=x-10*(x\10); x\=10); return(s + x) } ProdNzD(x)= { p=1; while (x>9, d=x-10*(x\10); if (d, p*=d); x\=10); return(p*x) } { for (n=1, 1000, write("b062331.txt", n, " ", SumD(n)*ProdNzD(n)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 05 2009]
|
|
|
CROSSREFS
| Sequence in context: A098736 A002015 A003132 * A069940 A153211 A118881
Adjacent sequences: A062328 A062329 A062330 * A062332 A062333 A062334
|
|
|
KEYWORD
| nonn,easy,base
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 21 2001
|
|
|
EXTENSIONS
| More terms from Larry Reeves (larryr(AT)acm.org), Jun 22 2001
|
| |
|
|
