OFFSET
0,2
EXAMPLE
a(2)= 60025 since 60025 is square and contains 2 consecutive internal 0's.
MATHEMATICA
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} ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Dec 22 2001
EXTENSIONS
More terms from Robert G. Wilson v, Dec 23 2001
a(9)-a(14) from Lars Blomberg, Apr 29 2013
STATUS
approved