|
|
A300405
|
|
Numbers whose squares are the sums of two decimal repdigits.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
11^2 = 99 + 22 = 88 + 33 = 77 + 44 = 66 + 55,
12^2 = 111 + 33,
38^2 = 1111 + 333,
211^2 = 44444 + 77.
|
|
MATHEMATICA
|
With[{s = Transpose@ Table[FromDigits@ ConstantArray[i, j], {i, 9}, {j, 2, 20}]}, Sqrt@ Union@ Select[Map[Total, Subsets[Flatten@ s, {2}]], IntegerQ@ Sqrt@ # &]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|