1,3

(*For a(7) *) mx = 0; Do[Do[Do[Do[Do[Do[Do[k = 10^6b + 10^5q + 10^4r + 10^3p + 10^2s + 10n + m; w = IntegerDigits[k^2]; ile = 0; Do[If[w[[t]] == 0, ile = ile + 1; If[ile > mx, mx = ile]], {t, 1, Length[w]}], {m, 1, 9}], {n, 1, 9}], {s, 1, 9}], {p, 1, 9}], {r, 1, 9}], {q, 1, 9}], {b, 1, 9}]; mx

Cf. A134843, A134844, A134845, A134846, A134847, A134848, A134849.

Sequence in context: A108654 A131530 A102093 this_sequence A092494 A050618 A093579

Adjacent sequences: A135212 A135213 A135214 this_sequence A135216 A135217 A135218

nonn,base

Artur Jasinski (grafix(AT)csl.pl), Nov 23 2007