OFFSET
0,5
LINKS
Stefano Spezia, Table of n, a(n) for n = 0..10000
MATHEMATICA
a[n_]:=Numerator[(FromDigits[Reverse[IntegerDigits[n]]]-1)/(n+1)]; Array[a, 73, 0]
PROG
(PARI) a(n) = numerator((fromdigits(Vecrev(digits(n)))-1)/(n+1)); \\ Michel Marcus, Nov 28 2023
CROSSREFS
KEYWORD
AUTHOR
Stefano Spezia, Nov 28 2023
STATUS
approved