A328386 a(n) = A276086(n) mod n.

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

Author

Antti Karttunen, Oct 15 2019

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..30030

Crossrefs

Cf. A276086, A324198, A328382, A328387 (positions of zeros).

Programs

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 *)

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);

Formula

a(n) = A276086(n) mod n.