OFFSET
1,1
EXAMPLE
10541^2=111112681, 33334^2=1111155556.
MATHEMATICA
Select[ Range[ 100, 500000 ], Length[ Union[ Take[ IntegerDigits[ #^2 ], 5 ] ] ] == 1 & ] (Jonathan Vos Post, Aug 29 2007)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Aug 04 2006
STATUS
approved