A066371 - OEIS

%I #6 Apr 29 2013 04:07:29

%S 1,1024,60025,1560001,39000025,1900000921,460000002289,2441400000004,

%T 381470000000049,64750000000005369,259000000000021476,

%U 800000000000150481,20000000000003762025,668913126000000000000025,1100000000000000100085830916

%N Smallest positive square that contains n consecutive internal 0's.

%e a(2)= 60025 since 60025 is square and contains 2 consecutive internal 0's.

%t Do[k = Floor[10^(n/2)]; While[a = Flatten[ Position[ IntegerDigits[k^2], 0]]; Mod[k, 10] == 0 || Length[a] < n || Last[a] - First[a] + 1 != n, k++ ]; Print[k^2], {n, 0, 8} ]

%Y Square roots are in A066392.

%K base,nonn

%O 0,2

%A _Erich Friedman_, Dec 22 2001

%E More terms from _Robert G. Wilson v_, Dec 23 2001

%E a(9)-a(14) from _Lars Blomberg_, Apr 29 2013