A034989 Smallest squares starting with a string of n 6's.

64, 66049, 6661561, 6666724, 66666207204, 6666662032144, 66666669781156, 666666667972321, 666666666784689561, 66666666662139024481, 66666666666067063944516, 6666666666663510150195841, 66666666666662415539262729, 666666666666660853687280656

Offset: 1

Author

Patrick De Geest, Nov 15 1998

Keywords

• nonn
• base

Crossrefs

Cf. A034988.

Programs

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 ] ]

Extensions

Program and more terms from Jonathan Cross (jcross(AT)wcox.com), Oct 15 2001