[go: up one dir, main page]

login
A102857
Sum of 1, 2 or 3 distinct tetrahedral numbers.
10
1, 4, 5, 10, 11, 14, 15, 20, 21, 24, 25, 30, 31, 34, 35, 36, 39, 40, 45, 46, 49, 55, 56, 57, 59, 60, 61, 65, 66, 67, 70, 76, 77, 80, 84, 85, 86, 88, 89, 91, 92, 94, 95, 98, 101, 104, 105, 108, 111, 114, 119, 120, 121, 123, 124, 125, 129, 130, 131, 134, 139
OFFSET
1,2
MATHEMATICA
Module[{nn=10, tetra}, tetra=Table[(n(n+1)(n+2))/6, {n, nn}]; Rest[Union[ Total/@ Subsets[tetra, 3]]]] (* Harvey P. Dale, Nov 17 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jud McCranie, Mar 01 2005
STATUS
approved