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,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

(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

Adjacent sequences: A328383 A328384 A328385 * A328387 A328388 A328389

Keyword

nonn

Author

Antti Karttunen, Oct 15 2019

Status

approved