A097640 Numbers n such that n=(d_1+d_2+...+d_k)*prime(d_1+d_2+...+d_k) where d_1 d_2 ... d_k is the decimal expansion of n.

152, 207, 444, 1098

Offset: 1

Author

Farideh Firoozbakht, Aug 21 2004

Keywords

• base
• fini
• full
• nonn

Examples

			444 is in the sequence because 444=(4+4+4)*prime(4+4+4).
		

Crossrefs

Cf. A097641.

Programs

Mathematica

denQ[n_]:=Module[{tidn=Total[IntegerDigits[n]]},n==tidn Prime[tidn]]; Select[Range[1100],denQ] (* Harvey P. Dale, May 08 2012 *)