cp's OEIS Frontend

A089186 Decreases from 9 * 10^k down to 1, restarting at 9 * 10^(k+1).

%I A089186 #30 Sep 18 2024 11:49:15
%S A089186 9,8,7,6,5,4,3,2,1,90,89,88,87,86,85,84,83,82,81,80,79,78,77,76,75,74,
%T A089186 73,72,71,70,69,68,67,66,65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,
%U A089186 50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28
%N A089186 Decreases from 9 * 10^k down to 1, restarting at 9 * 10^(k+1).
%C A089186 Points of local maxima: 9 * 10^k.
%C A089186 a(n) is the 10's complement of n. - _Robert Israel_, Jul 03 2024
%H A089186 Alois P. Heinz, <a href="/A089186/b089186.txt">Table of n, a(n) for n = 1..9999</a>
%F A089186 a(n) = 10^(floor(log_10(n)) + 1) - n.
%p A089186 a:= n-> 10^length(n)-n:
%p A089186 seq(a(n), n=1..72);  # _Alois P. Heinz_, Sep 18 2024
%t A089186 Join[Range[9,1,-1],Range[90,1,-1]] (* _Harvey P. Dale_, Jun 06 2013 *)
%o A089186 (Magma) [10^#Intseq(n)-n : n in [1..68]]; // _Arkadiusz Wesolowski_, Nov 09 2013
%o A089186 (PARI) a(n) = 10^(1+logint(n, 10)) - n \\ _Ruud H.G. van Tol_, Jan 16 2023
%Y A089186 Cf. A052268, A178914 (essentially the same).
%K A089186 base,easy,nonn
%O A089186 1,1
%A A089186 Artemario Tadeu Medeiros da Silva (artemario(AT)uol.com.br), Dec 07 2003