%I #13 Jul 19 2018 03:52:28
%S 701,7001,10007,10243,20347,70001,97001,202757,306749,379499,700001,
%T 997001,1002247,1070021,3317257,3346507,9536249,9970001,10095247,
%U 20470501,21095021,22144979,94925771,100000007,100099501,104933743,202520347,300191597
%N Primes p such that p^2 contains all of the square digits {0, 1, 4, 9} only.
%C Subset of A285550.
%H Giovanni Resta, <a href="/A316969/b316969.txt">Table of n, a(n) for n = 1..501</a> (terms < 10^16)
%e 701^2 = 491401 that contains all the square digits {0, 1, 4, 9} only. Hence, 701 is a term.
%e 10243^2 = 104919049 that contains all of the square digits {0, 1, 4, 9} only. Hence, 10243 is a term.
%e 997 is not a term because 997^2 = 994009 does not contain the digit '1'.
%t Select[Prime[Range[20000000]], Union[IntegerDigits[#^2]] == {0, 1, 4, 9} &]
%Y Cf. A000040, A000290, A001248, A284973, A285550, A019544.
%K nonn,base
%O 1,1
%A _K. D. Bajpai_, Jul 17 2018
|