A208090 - OEIS

%I #42 Dec 07 2023 14:54:17

%S 110100100,10201,13330,400,324,202,244,271,100,121,144,169,172

%N 100 written in base -n.

%H Phil Haacked, <a href="http://haacked.com/archive/2006/05/01/negativebasenumberingsystems.aspx">Negative Base Numering System</a>

%H Daniel Mondot, <a href="/A208090/a208090_2.txt">Bases to -101, including digits >9</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Base.html">Base</a>

%t (* From MathWorld *) NegativeIntegerDigits[0, n_Integer?Negative] := {0}; NegativeIntegerDigits[i_, n_Integer?Negative] := Rest@Reverse@Mod[NestWhileList[(# - Mod[#, -n])/n &, i, # != 0 &], -n]; Table[FromDigits[NegativeIntegerDigits[100, -n]], {n, 2, 14}]

%Y Cf. A065004.

%K nonn,fini,full,less

%O 2,1

%A _Radu Borza_, Mar 07 2012