OFFSET
1,1
EXAMPLE
149^2 = 22201.
MATHEMATICA
Select[Range[10, 5000], Length[Union[Take[IntegerDigits[ #^2], 3]]] == 1 &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Aug 28 2007
STATUS
approved