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 A344045 #31 May 09 2021 11:53:16
%S A344045 7,13,19,37,41,97,107,191,223,379,397,487,509,701,997,1049,1063,1093,
%T A344045 1201,1301,1801,1907,2011,2029,3019,3169,3319,3371,3767,4013,4451,
%U A344045 5009,5011,5081,5099,5693,6037,6397,7001,8009,9041,9521,9619,9721,9907,10007
%N A344045 Primes p such that the decimal digits of p^2 can be partitioned into two or more squares.
%C A344045 Similar to A048646 except that here zeros are permitted as squares.
%H A344045 Harvey P. Dale, <a href="/A344045/b344045.txt">Table of n, a(n) for n = 1..200</a>
%e A344045 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 A344045 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 A344045 Cf. A048646, A048653, A128783.
%K A344045 nonn,base
%O A344045 1,1
%A A344045 _Harvey P. Dale_, May 09 2021