1,1

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

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 ];

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} ]

Sequence in context: A003321 A012333 A012329 this_sequence A013555 A012335 A012331

Adjacent sequences: A064153 A064154 A064155 this_sequence A064157 A064158 A064159

more,nonn,base

Felice Russo (felice.russo(AT)katamail.com), Sep 14 2001

Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 05 2001

Sequence continues a(14)=?, 111111111126581, 1111111111144841, 0, 111111111111126443, 0, a(20)=?, 111111111111111135781, 0, 0, 111111111111111111244561, a(25)=?, 0, 111111111111111111111113797, 1111111111111111111111117747, 0, 111111111111111111111111132577, 0,

a(32)=?, 0, 0, a(35)=?, 111111111111111111111111111111138473, 0, 0, 0, a(40)=?, 0, 111111111111111111111111111111111111274861, 0, 0, 111111111111111111111111111111111111111235843, 0, 0, 111111111111111111111111111111111111111111183457, ...