|
|
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.
|
|
2
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|