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 A094318 #3 May 19 2014 11:22:02
%S A094318 2,3,5,7,11,23,29,43,47,59,67,79,83,97,101,113,131,137,151,157,173,
%T A094318 181,191,223,227,239,241,263,269,281,283,293,311,313,317,331,337,349,
%U A094318 353,373,389,421,439,443,463,467,479,487,509,557,569,571,577
%N A094318 Primes n with property that sum of digits that are 1 or a prime is prime.
%t A094318 sdprQ[n_]:=PrimeQ[Total[Select[IntegerDigits[n],MemberQ[{1,2,3,5,7},#]&]]]; Select[Prime[Range[200]],sdprQ] (* _Harvey P. Dale_, May 19 2014 *)
%Y A094318 Cf. A094317.
%K A094318 nonn,base
%O A094318 1,1
%A A094318 Harvey Dale, May 31 2004