1,2

zerocompositionswithzero[p_] := Module[{united = {}, i, zerosums = {}, count = 0}, For[i = 1, i <= p, i = i + 1, united = Union[united, Tuples[Table[x, {x, -p, p}], i]] ]; For[i = 1, i <= Length[united], i = i + 1, If[Sum[united[[i, j]], {j, 1, Length[united[[i]]]}] == 0, zerosums = Append[zerosums, united[[i]]]; count = count + 1; ]; ]; Return[{count, zerosums}]; ];

Sequence in context: A084064 A109516 A078865 this_sequence A086721 A145002 A043076

Adjacent sequences: A160489 A160490 A160491 this_sequence A160493 A160494 A160495

nonn

Srikanth K S (sriperso(AT)gmail.com), May 15 2009