OFFSET
1,12
COMMENTS
For n > 1: if A111862(n)=6 then a(n) = a(n-1) + 1, otherwise a(n) = a(n-1).
Lim_{n->infinity} a(n)/n = 1/10.
REFERENCES
G. Pólya and G. Szegő, Problems and Theorems in Analysis I (Springer 1924, reprinted 1972), Part Two, Chap. 4, Sect. 4, Problem 178.
EXAMPLE
a(10) = 1, a(100) = 8, a(1000) = 98, a(10000) = 1000.
MATHEMATICA
sd6Q[n_]:=Module[{c=RealDigits[Sqrt[n], 10, 10]}, If[Drop[c[[1]], c[[2]]][[2]]==6, 1, 0]]; Accumulate[Array[sd6Q, 110]] (* Harvey P. Dale, Aug 17 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 20 2005
STATUS
approved