OFFSET
1,11
COMMENTS
For n > 1: if A111862(n)=1 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) = 10, a(1000) = 100, a(10000) = 998.
MATHEMATICA
Accumulate[Table[If[NumberDigit[Sqrt[n], -2]==1, 1, 0], {n, 100}]] (* Harvey P. Dale, Mar 31 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 20 2005
STATUS
approved