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 A155088 #20 Jun 24 2015 18:16:20
%S A155088 2,3,55,332,352,375,733,3573,3575,7235,22222,22223,22322,252323,
%T A155088 252335,253777,255225,372755,372772,522532,523255,525737,2275325,
%U A155088 2275327,2275337,2277333,2277337,3325772,27727257,27727277,27727732,27737332,27737722,27737723
%N A155088 Numbers n such that n and prime(n) contain prime digits only.
%C A155088 Indices n such that A045532(n) is in A046034. [_R. J. Mathar_, May 05 2010]
%H A155088 Giovanni Resta, <a href="/A155088/b155088.txt">Table of n, a(n) for n = 1..200</a>
%H A155088 Giovanni Resta, <a href="/A155088/a155088.txt">Table of a(n), prime(a(n)) for n = 1..200</a>
%e A155088 352 is in the sequence since 352 and prime(352) = 2377 use only prime digits (2, 3, 5, 7). For more examples see Links.
%t A155088 pQ[n_] := Union[IntegerDigits@n, {2,3,5,7}] == {2,3,5,7}; Select[Range[10^5], pQ@# && pQ@Prime@# &] (* _Giovanni Resta_, Mar 11 2013 *)
%t A155088 Select[Flatten[Table[FromDigits/@Tuples[{2,3,5,7},n],{n,8}]],AllTrue[ IntegerDigits[Prime[#]],PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 24 2015 *)
%Y A155088 Cf. A000027, A000040, A167483.
%K A155088 nonn,base
%O A155088 1,1
%A A155088 _Juri-Stepan Gerasimov_, Jan 20 2009
%E A155088 Corrected (332, 352, 375 inserted) by _R. J. Mathar_, May 05 2010
%E A155088 a(11)-a(34) from _Giovanni Resta_, Mar 11 2013