OFFSET
1,8
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
MapAt[# + 1 &, Array[If[# < 2, 0, # Total[#2/#1 & @@@ #2]] + Times @@ Map[(#1 - 1)^#2 & @@ # &, #2] - #1 & @@ {#, FactorInteger[#]} &, 95], 1] (* Michael De Vlieger, Mar 15 2022 *)
PROG
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Nov 09 2021
STATUS
approved