OFFSET
1,3
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
EXAMPLE
a(6) = prime(2)*prime(3) mod 6 = 15 mod 6 = 3.
MATHEMATICA
Table[Mod[If[n == 1, 1, Apply[Times, FactorInteger[n] /. {p_, e_} /; p > 1 :> Prime[p]^e]], n], {n, 94}] (* Michael De Vlieger, Sep 10 2018 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan and Antti Karttunen, Sep 08 2018
STATUS
approved