A098114 Numbers n such that n=(d_1+4)*(d_2+4)*...*(d_k+4) where d_1 d_2 ... d_k is the decimal expansion of n.
120, 315, 4752, 7744, 24960, 57915, 3386880
Offset: 1
Examples
3386880 is in the sequence because 3386880=(3+4)*(3+4)*(8+4)*(6+4)*(8+4)*(8+4)*(0+4).
Programs
-
Mathematica
Do[d=IntegerDigits[n];k=Length[d];If[n==Product[d[[j]]+4, {j, k}], Print[n]], {n, 1030000000}] Select[Range[4000000],#==Times@@(IntegerDigits[#]+4)&] (* Harvey P. Dale, Dec 11 2012 *)
Comments