1,1

Squares that can be split up in more than one way, e.g., 729 (72 + 9 and 7 + 29), appear only once.

The number of such squares is infinite, since 39...960...01 (the numbers of the digits 9 and 0 is equal) can be split up into 3 and 9...960..01 with 3 + 9...960...01 = (100...0-2)^2 and 39...960...01 = (2*100...0 - 1)^2.

From Robert G. Wilson v, Aug 06 2015: (Start)

Number of terms < 10^k: 0, 2, 9, 27, 66, 149, 370, 910, 2164, 5325, 12916, 29448, ..., .

Terms which are members of A257649 in more than one way: 729, 7569, 15129, 56169, 86436, 123201, ..., .

Terms which are members of A257649 in more than two way: 881377344, 3784833441, 39999600001, 54444755556, 71111288889, 89999400001, 159999200001, 321111488889, 751111688889, ..., .

Least term which is a member of A257649 in k ways: 36, 729, 881377344, 399999960000001, ..., . (End)

Robert G. Wilson v, Table of n, a(n) for n = 1..10000 (first 909 terms from Reiner Moewald)

36 = 6^2 and 3 + 6 = 9 = 3^2.

f[n_] := Block[{a, b, c, k = 1, idn = IntegerDigits@ n, lng, lst = {}}, lng = Length@ idn; While[k < lng, a = FromDigits[ Take[idn, {1, k}]]; b = FromDigits[ Take[idn, {k + 1, lng}]]; c = a*10^(lng - k) + b; If[b > 0 && Floor[1 + Log10@ b] == lng - k && IntegerQ@ Sqrt[a + b], AppendTo[lst, c]]; k++]; Length@ lst]; k = 1; lst = {}; While[k < 201, If[ f[k^2] > 0, AppendTo[lst, k^2]]; k++]; lst (* Robert G. Wilson v, Aug 06 2015 *)

ctiQ[n_]:=AnyTrue[Total/@Select[Table[FromDigits/@TakeDrop[IntegerDigits[n], d], {d, IntegerLength[ n]-1}], IntegerLength[#[[1]]]+IntegerLength[#[[2]]] ==IntegerLength[ n]&], IntegerQ[ Sqrt[#]]&]; Select[Range[200]^2, ctiQ] (* Harvey P. Dale, Jun 04 2023 *)

(Python)

import math

list = []

for i in range(1, 1000):

a = i*i

b = str(a)

for j in range(1, len(b)):

a_1 = b[:j]

a_2 = b[j:]

c = int(a_1)+int(a_2)

sqrt_c = math.isqrt(c)

if (sqrt_c * sqrt_c == c) and (int(a_2[:1]) > 0):

if not a in list:

list.append(a)

print(list)

Subsequence of A052041.

Sequence in context: A271629 A171675 A136359 * A259240 A341555 A084006

Adjacent sequences: A257646 A257647 A257648 * A257650 A257651 A257652

nonn,base

Reiner Moewald, Jul 25 2015

approved