[go: up one dir, main page]

login
A030108
Base 9 reversal of n (written in base 10).
24
0, 1, 2, 3, 4, 5, 6, 7, 8, 1, 10, 19, 28, 37, 46, 55, 64, 73, 2, 11, 20, 29, 38, 47, 56, 65, 74, 3, 12, 21, 30, 39, 48, 57, 66, 75, 4, 13, 22, 31, 40, 49, 58, 67, 76, 5, 14, 23, 32, 41, 50, 59, 68, 77, 6, 15, 24, 33, 42, 51, 60, 69, 78, 7, 16, 25, 34, 43, 52, 61, 70, 79, 8, 17, 26, 35, 44
OFFSET
0,3
LINKS
MATHEMATICA
Table[FromDigits[Reverse[IntegerDigits[n, 9]], 9], {n, 0, 80}] (* Harvey P. Dale, Jun 01 2017 *)
PROG
(PARI) apply( {A030108(n, b=9)=fromdigits(Vecrev(digits(n, b)), b)}, [0..99]) \\ M. F. Hasler, May 21 2021, replacing earlier code from M. F. Hasler, Nov 04 2011
CROSSREFS
KEYWORD
nonn,base,look
STATUS
approved