OFFSET
1,1
MATHEMATICA
s={}; Do[id=IntegerDigits[n]; If[Union[IntegerQ/@Sqrt[Rest[id]+Most[id]]]=={True}, AppendTo[s, n]], {n, 10, 2000}]; s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 27 2010
STATUS
approved