%I A064156
%S A064156 2,0,167,1427,0,126241,1111457,12222241,111113543,0,0,111111118273,0,0,
               111111111126581,
%T A064156 1111111111144841,0,111111111111126443,0,11111111111122225421,111111111111111135781,
               0,
%U A064156 0,111111111111111111244561,1111111111111111121255521,0,111111111111111111111113797
%N A064156 Smallest prime with n decimal digits such that the product of its digits 
               equals n times the sum of its digits, or 0 if no such prime exists.
%H A064156 Max Alekseyev, <a href="b064156.txt">Table of n, a(n) for n=1..200</a>
%e A064156 167 belongs to the sequence because this is the smallest prime with 3 
               digits such that 1*6*7=42 and 3*(1+6+7)=42
%t A064156 NextPrim[ n_ ] := (k = n + 1; While[ ! PrimeQ[ k ], k++ ]; k); Do[ If[ 
               n != 1 && Transpose[ FactorInteger[ n ] ][ [ 1, -1 ] ] <= 10, k = 
               NextPrim[ (10^n - 1)/9 ];
%t A064156 While[ d = IntegerDigits[ k ]; k < 10^n && n*Apply[ Plus, d ] != Apply[ 
               Times, d ], k = NextPrim[ k ] ]; If[ k < 10^n, Print[ k ], Print[ 
               0 ] ], If[ n == 1, Print[ 2 ], Print[ 0 ] ] ], {n, 1, 9} ]
%Y A064156 Sequence in context: A003321 A012333 A012329 this_sequence A013555 A012335 
               A012331
%Y A064156 Adjacent sequences: A064153 A064154 A064155 this_sequence A064157 A064158 
               A064159
%K A064156 nonn,base
%O A064156 1,1
%A A064156 Felice Russo (felice.russo(AT)katamail.com), Sep 14 2001
%E A064156 Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 
               05 2001
%E A064156 a(14), a(20), a(25) and b-file from Max Alekseyev (maxale(AT)gmail.com), 
               May 07 2009