OFFSET
2,7
LINKS
Antti Karttunen, Table of n, a(n) for n = 2..65537
FORMULA
a(n) = n mod A003415(n).
MATHEMATICA
Array[Mod[#, # Total[#2/#1 & @@@ FactorInteger[#]]] &, 120, 2] (* Michael De Vlieger, Jan 15 2024 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 15 2024
STATUS
approved