%I #10 Sep 16 2016 11:05:03
%S 5,235,72335
%N Numbers n with property that n and n^2 use only prime digits.
%C Probably there are no other terms. No other terms up to 10^40.
%C Intersection of A046034 and A275971. - _M. F. Hasler_, Sep 16 2016
%e The squares of 5, 235, 72335 are 25, 55225, 5232352225.
%t 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 Cf. A046034, A275971.
%K nonn,bref,base
%O 1,1
%A _Zak Seidov_, Dec 17 2008
%E Edited by David Wilson and _N. J. A. Sloane_, Jan 25 2009
|