0,2
Do[ If[ 4n == Apply[ Times, IntegerDigits[n]] Apply[ Plus, IntegerDigits[n]], Print[n]], {n, 0, 10^7} ]
Sequence in context: A126283 A023618 A115077 this_sequence A023650 A163188 A045991
Adjacent sequences: A066150 A066151 A066152 this_sequence A066154 A066155 A066156
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 13 2001
Search completed in 0.002 seconds