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