OFFSET
1,1
EXAMPLE
444 is in the sequence because 444=(4+4+4)*prime(4+4+4).
MATHEMATICA
denQ[n_]:=Module[{tidn=Total[IntegerDigits[n]]}, n==tidn Prime[tidn]]; Select[Range[1100], denQ] (* Harvey P. Dale, May 08 2012 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Farideh Firoozbakht, Aug 21 2004
STATUS
approved