A064154 Numbers whose product of digits equals the number of digits times the sum of digits.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 36, 44, 63, 159, 167, 176, 195, 235, 253, 325, 333, 352, 519, 523, 532, 591, 617, 671, 716, 761, 915, 951, 1247, 1274, 1344, 1427, 1434, 1443, 1472, 1724, 1742, 2147, 2174, 2226, 2262, 2417, 2471, 2622, 2714, 2741, 3144, 3414

Offset

1,3

Comments

A subset of A061013.

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 1001 terms from Harry J. Smith)

Example

36 belongs to the sequence because 3*6 = 18 and 2*(3+6) = 18.

Mathematica

Select[Range[0, 3414], (d = IntegerDigits[#]; Times @@ d == Length[d] Plus @@ d) &] (* Giovanni Resta, Jun 25 2018 *)

Prog

(PARI) for(n=0, 10000, my(v=digits(n)); if(vecprod(v)==#v*vecsum(n), print1(n, ", "))) \\ Derek Orr, Sep 09 2018

Crossrefs

Cf. A061013, A316147.

Sequence in context: A257830 A343050 A276143 * A316147 A080161 A345405

Adjacent sequences: A064151 A064152 A064153 * A064155 A064156 A064157

Keyword

easy,nonn,base

Author

Felice Russo, Sep 14 2001

Extensions

Offset set to 1 by Giovanni Resta, Jun 25 2018

Status

approved