OFFSET
1,8
COMMENTS
a(n) is the sum of all other parts of the partition having Heinz number n except one instance of the largest part.
LINKS
FORMULA
MATHEMATICA
Array[Total[# /. {p_, c_} /; p > 0 :> PrimePi[p] c] - PrimePi@ #[[-1, 1]] &@ FactorInteger[#] &, 105] (* Michael De Vlieger, May 14 2020 *)
PROG
CROSSREFS
Cf. also A334107.
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 11 2020
STATUS
approved