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 A153025 #10 Sep 16 2016 11:05:03
%S A153025 5,235,72335
%N A153025 Numbers n with property that n and n^2 use only prime digits.
%C A153025 Probably there are no other terms. No other terms up to 10^40.
%C A153025 Intersection of A046034 and A275971. - _M. F. Hasler_, Sep 16 2016
%e A153025 The squares of 5, 235, 72335 are 25, 55225, 5232352225.
%t A153025 Flatten[Table[Select[FromDigits/@Tuples[{2,3,5,7},n],AllTrue[ IntegerDigits[ #^2], PrimeQ]&],{n,5}]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Oct 16 2014 *)
%Y A153025 Cf. A046034, A275971.
%K A153025 nonn,bref,base
%O A153025 1,1
%A A153025 _Zak Seidov_, Dec 17 2008
%E A153025 Edited by David Wilson and _N. J. A. Sloane_, Jan 25 2009