OFFSET
1,1
EXAMPLE
Example: 745356^2 = 555555566736.
MATHEMATICA
Select[Range[1000, 5000000], Length[Union[Take[IntegerDigits[ #^2], 7]]] == 1 & ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jonathan Vos Post, Aug 30 2007
EXTENSIONS
a(8)-a(24) from Donovan Johnson, Sep 05 2008
STATUS
approved