%I #31 May 09 2021 11:53:16
%S 7,13,19,37,41,97,107,191,223,379,397,487,509,701,997,1049,1063,1093,
%T 1201,1301,1801,1907,2011,2029,3019,3169,3319,3371,3767,4013,4451,
%U 5009,5011,5081,5099,5693,6037,6397,7001,8009,9041,9521,9619,9721,9907,10007
%N Primes p such that the decimal digits of p^2 can be partitioned into two or more squares.
%C Similar to A048646 except that here zeros are permitted as squares.
%H Harvey P. Dale, <a href="/A344045/b344045.txt">Table of n, a(n) for n = 1..200</a>
%e 97 is a term because 97 is a prime and 97^2 = 9409 which can be partitioned into 9, 4, 0, and 9, each of which is a square.
%t tmsQ[n_]:=Total[Boole[AllTrue[Sqrt[#],IntegerQ]&/@Rest[Table[FromDigits/@ TakeList[IntegerDigits[n^2],q],{q,Flatten[Permutations/@ IntegerPartitions[ IntegerLength[ n^2]],1]}]]]]>0; Select[Prime[ Range[ 3000]],tmsQ]
%Y Cf. A048646, A048653, A128783.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, May 09 2021
|