OFFSET
1,4
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
A240751(5) = 12 so a(5) = 12 mod 5 == 2.
MATHEMATICA
Table[k = 2; While[! MemberQ[FactorInteger[k!][[All, -1]], n], k++]; Mod[k, n], {n, 87}] (* Michael De Vlieger, Mar 24 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
David A. Corneth, Mar 19 2017
STATUS
approved