OFFSET
1,1
EXAMPLE
57735^2=3333330225, 333334^2=111111555556.
MATHEMATICA
Select[ Range[ 1000, 5000000 ], Length[ Union[ Take[ IntegerDigits[ #^2 ], 6 ] ] ] == 1 & ] (Jonathan Vos Post, Aug 29 2007)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Aug 04 2006
STATUS
approved