A098736 a(n) = product of n and all its digits.
0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 0, 11, 24, 39, 56, 75, 96, 119, 144, 171, 0, 42, 88, 138, 192, 250, 312, 378, 448, 522, 0, 93, 192, 297, 408, 525, 648, 777, 912, 1053, 0, 164, 336, 516, 704, 900, 1104, 1316, 1536, 1764, 0, 255, 520, 795, 1080, 1375, 1680, 1995
Offset: 0
Examples
a(15) = 15*1*5=75
Links
Programs
-
Maple
with transforms; [seq(n*digprod(n), n=0..200)]; # N. J. A. Sloane, Oct 12 2013
-
Mathematica
Array[# Times@@ IntegerDigits@#&, 60, 0] (* Vincenzo Librandi, Oct 13 2013 *)
-
PARI
a(n) = vecprod(digits(n))*n; \\ Michel Marcus, Aug 06 2020
Formula
If n=abcd (say) in decimal, then a(n) = abcd * a * b * c * d.
a(n) = n*A007954(n). - R. J. Mathar, Sep 27 2013
Extensions
More terms from Sam Alexander, Jan 06 2005
Corrected by Vincenzo Librandi, Oct 13 2013