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 A118722 #4 Nov 21 2013 12:48:58
%S A118722 2,3,5,7,13,17,31,71,113,131,211,311,1117,1151,1511,2111,11117,11171,
%T A118722 131111,311111,511111,1111151,1111211,1111711,1117111,11111117,
%U A118722 11111171,71111111
%N A118722 Chen primes for which the product of the digits is also a Chen prime.
%e A118722 31 is in the sequence because (1) it is a Chen prime and (2) the product of its digits 3*1=3 is also a Chen prime.
%t A118722 chenQ[n_]:=Module[{pidn=Times@@IntegerDigits[n]},PrimeQ[pidn]&&PrimeOmega[ pidn+2]<3]; With[{chen=Select[Prime[Range[4200000]],PrimeOmega[#+2]<3&]},Select[chen,chenQ]] (* _Harvey P. Dale_, Apr 22 2012 *)
%Y A118722 Cf. A109611.
%K A118722 base,nonn
%O A118722 1,1
%A A118722 Luc Stevens (lms022(AT)yahoo.com), May 21 2006