|
|
A034988
|
|
a(n) is root of smallest square starting with a string of n 'digit_6's.
|
|
2
|
|
|
8, 257, 2581, 2582, 258198, 2581988, 8164966, 25819889, 816496581, 8164965809, 258198889746, 2581988897471, 8164965809277, 25819888974716, 258198889747161, 816496580927726, 81649658092772603, 2581988897471611256, 8164965809277260327
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) = 258198^2 = {66666}207204.
|
|
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
|
|
|
EXTENSIONS
|
Program and more terms from Jonathan Cross (jcross(AT)wcox.com), Oct 15 2001
|
|
STATUS
|
approved
|
|
|
|