login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A344045 Primes p such that the decimal digits of p^2 can be partitioned into two or more squares. 1
7, 13, 19, 37, 41, 97, 107, 191, 223, 379, 397, 487, 509, 701, 997, 1049, 1063, 1093, 1201, 1301, 1801, 1907, 2011, 2029, 3019, 3169, 3319, 3371, 3767, 4013, 4451, 5009, 5011, 5081, 5099, 5693, 6037, 6397, 7001, 8009, 9041, 9521, 9619, 9721, 9907, 10007 (list; graph; refs; listen; history; text; internal format)
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

Cf. A048646, A048653, A128783.

Sequence in context: A208776 A108295 A071923 * A048646 A152087 A098059

Adjacent sequences:  A344042 A344043 A344044 * A344046 A344047 A344048

KEYWORD

nonn,base

AUTHOR

Harvey P. Dale, May 09 2021

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 22 04:12 EDT 2022. Contains 353933 sequences. (Running on oeis4.)