OFFSET
1,1
COMMENTS
Similar to A048646 except that here zeros are permitted as squares.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..200
EXAMPLE
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.
MATHEMATICA
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]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, May 09 2021
STATUS
approved