OFFSET
1,5
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..30030
FORMULA
a(n) = A276086(n) mod n.
MATHEMATICA
Block[{b = MixedRadix[Reverse@ Prime@ Range@ 12]}, Array[Mod[Apply[Times, Power @@@ # &@ Transpose@ {Prime@ Range@ Length@ #, Reverse@ #}] &@ IntegerDigits[#, b], #] &, 91]] (* Michael De Vlieger, Oct 15 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 15 2019
STATUS
approved