login
A328386
a(n) = A276086(n) mod n.
10
0, 1, 0, 1, 3, 5, 3, 7, 3, 5, 2, 1, 11, 5, 0, 1, 8, 17, 3, 15, 15, 3, 19, 1, 0, 3, 24, 25, 27, 7, 14, 21, 9, 29, 21, 35, 33, 29, 15, 35, 15, 7, 6, 41, 15, 11, 1, 11, 35, 25, 48, 23, 9, 1, 5, 21, 30, 51, 44, 49, 37, 23, 42, 57, 37, 47, 21, 55, 21, 35, 8, 1, 41, 49, 0, 5, 28, 41, 5, 55, 57, 21, 26, 49, 50, 27, 6, 9, 73, 73, 49
OFFSET
1,5
LINKS
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
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328386(n) = (A276086(n)%n);
CROSSREFS
Cf. A276086, A324198, A328382, A328387 (positions of zeros).
Sequence in context: A214456 A118271 A260689 * A095366 A029604 A079602
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 15 2019
STATUS
approved