This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A097640 #6 Nov 21 2013 12:48:21
%S A097640 152,207,444,1098
%N 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.
%e A097640 444 is in the sequence because 444=(4+4+4)*prime(4+4+4).
%t A097640 denQ[n_]:=Module[{tidn=Total[IntegerDigits[n]]},n==tidn Prime[tidn]]; Select[Range[1100],denQ] (* _Harvey P. Dale_, May 08 2012 *)
%Y A097640 Cf. A097641.
%K A097640 base,fini,full,nonn
%O A097640 1,1
%A A097640 _Farideh Firoozbakht_, Aug 21 2004