OFFSET
1,1
MATHEMATICA
For[i = 1, i < 20, i++, zeros = 0; isFound = False;
While[ !isFound, low = Ceiling[ Sqrt[ 2/3*(10^i - 1)*10^zeros ] ]; high = Floor[ Sqrt[ (2/3*(10^i - 1) + 1)*10^zeros ] ]; isFound = (low <= high); zeros++ ]; Print[ low, " ", low^2 ] ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 15 1998
EXTENSIONS
Program and more terms from Jonathan Cross (jcross(AT)wcox.com), Oct 15 2001
STATUS
approved