OFFSET
1,4
LINKS
MATHEMATICA
Table[Mod[First@Last@FactorInteger[n]!, n], {n, 100}] (* Giorgos Kalogeropoulos, Jul 04 2021 *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Jul 04 2021
STATUS
approved