OFFSET
1,3
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..2000
MATHEMATICA
Map[Mod[FromDigits[Flatten[{#1, #2}]]+FromDigits[Flatten[{#2, #1}]]&[IntegerDigits[#+1], IntegerDigits[#]], # (#+1)]&, Range[100]] (*Peter J. C. Moses, May 19 2015*)
PROG
(PARI) a(n) = (eval(concat(Str(n), Str(n+1))) + eval(concat(Str(n+1), Str(n)))) % (n*(n+1)); \\ Michel Marcus, Jun 04 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, May 19 2015
EXTENSIONS
More terms from Peter J. C. Moses, May 19 2015
STATUS
approved