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
Examples
36 belongs to the sequence because 3*6 = 18 and 2*(3+6) = 18.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 1001 terms from Harry J. Smith)
Programs
-
Mathematica
Select[Range[0, 3414], (d = IntegerDigits[#]; Times @@ d == Length[d] Plus @@ d) &] (* Giovanni Resta, Jun 25 2018 *)
-
PARI
for(n=0,10000,my(v=digits(n));if(vecprod(v)==#v*vecsum(n),print1(n,", "))) \\ Derek Orr, Sep 09 2018
Extensions
Offset set to 1 by Giovanni Resta, Jun 25 2018
Comments