A087095 a(n) = A077503(n) - n*10^d, where d = n-A055642(n), A055642(n) = number of digits in n.

0, 5, 24, 96, 176, 625, 1316, 13025, 0, 14129, 24161, 580921, 1310976, 4588964, 7007601, 0, 233634401, 244436761, 2180575376, 3762025, 23492302009, 71829444801, 293908889924, 357018382249, 2562501107225, 2194311769649

Offset

1,2

Links

Table of n, a(n) for n=1..26.

Formula

a(n) = ceiling(sqrt(n*10^d))^2 - n*10^d, where d = n-digit(n), digit(n) = number of digits in n.

Example

a(7) = 7001316 - 7000000 = 1316.

Mathematica

ceil[n_]:=Module[{d=n-IntegerLength[n], c}, c=n*10^d; Ceiling[Sqrt[c]]^2-c]; Array[ceil, 30] (* Harvey P. Dale, Sep 03 2018 *)

Crossrefs

Cf. A055642, A077503.

Sequence in context: A180354 A212349 A268370 * A099653 A270126 A276139

Adjacent sequences: A087092 A087093 A087094 * A087096 A087097 A087098

Keyword

nonn,base

Author

Ray Chandler, Aug 11 2003

Extensions

Edited by Charles R Greathouse IV, Aug 03 2010

Status

approved