A087095 - OEIS

%I #15 Jun 23 2019 16:59:14

%S 0,5,24,96,176,625,1316,13025,0,14129,24161,580921,1310976,4588964,

%T 7007601,0,233634401,244436761,2180575376,3762025,23492302009,

%U 71829444801,293908889924,357018382249,2562501107225,2194311769649

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

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

%e a(7) = 7001316 - 7000000 = 1316.

%t 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 *)

%Y Cf. A055642, A077503.

%K nonn,base

%O 1,2

%A _Ray Chandler_, Aug 11 2003

%E Edited by _Charles R Greathouse IV_, Aug 03 2010