OFFSET
1,2
COMMENTS
Decimal -1 in negadecimal is 19, decimal 19 in negadecimal is 199, decimal 199 in negadecimal is 219, ....
MATHEMATICA
negaDecimal[n_] := Mod[NestWhileList[Function[k, (Mod[k, 10]-k)/10], n, # != 0&], 10] // Reverse // Rest // FromDigits; a[1] = -1; a[n_] := a[n] = negaDecimal[a[n-1]]; Array[a, 40] (* Jean-François Alcover, Nov 23 2016 *)
CROSSREFS
KEYWORD
sign,base
AUTHOR
Gerald Hillier, Apr 23 2015
STATUS
approved
