1,1

a(1)=18 because we have 18 numbers with 2 digits and without zero digit whose square have maximal possible value 1 zero: 32, 33, 45, 47, 48, 49, 51, 52, 53, 55, 64, 71, 78, 84, 95, 97, 98, 99

a(2)=3 because we have 3 numbers with 3 digits and without zero digit whose square have maximal possible value 3 zeros: 448, 548, 949

a(3)=13 because we have 13 numbers with 4 digits and without zero digit whose square have maximal possible value 4 zeros: 3747, 3751, 4899, 6245, 6249, 6253, 7746, 7747, 7749, 7751, 7753, 9747, 9798

a(4)=1 because we have only one number with 5 digits and without zero digit whose square have maximal possible value 6 zeros: 62498

a(5)=7 because we have 7 numbers with 6 digits and without zero digit whose square have maximal possible value 7 zeros: 248998, 316245, 489898, 498999, 781249, 948951, 997998

a(6)=1 because we have only one number with 7 digits and without zero digit whose square have maximal possible value 10 zeros: 6244998

(*For a(7) *) c = 0; mx = 10; 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], {t, 1, Length[w]}]; If[ile == mx, c = c + 1], {m, 1, 9}], {n, 1, 9}], {s, 1, 9}], {p, 1, 9}], {r, 1, 9}], {q, 1, 9}], {b, 1, 9}]; c (*Artur Jasinski*)

Cf. A134843, A134844, A134845, A134846, A134847, A134848, A134849, A135215, A135217, A135219.

Sequence in context: A052453 A040315 A040316 this_sequence A135252 A040317 A040313

Adjacent sequences: A135213 A135214 A135215 this_sequence A135217 A135218 A135219

nonn,base

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