lists:foldl(fun(X, S) -> X + S end, 0, [X || X <- lists:seq(1, 1000), (X rem 5 =:= 0) and (X rem 3 =:= 0)]).