OFFSET
1,4
MATHEMATICA
Accumulate[Table[If[n<2, 0, If[PrimeQ[n], 0, n]], {n, 1, 100}]] (* James C. McMahon, Jan 07 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 23 2005
STATUS
approved