A093110 Numbers that can be written as a sum of three elements from A051912.
0, 1, 2, 3, 4, 5, 6, 8, 9, 12, 13, 14, 15, 17, 18, 21, 26, 27, 30, 32, 33, 34, 36, 37, 39, 40, 45, 46, 49, 58, 64, 65, 68, 71, 72, 73, 75, 76, 77, 79, 84, 85, 88, 96, 97, 103, 104, 107, 116, 124, 125, 126, 128, 129, 132, 135, 137, 138, 141, 142, 143, 146, 150, 155, 156
Offset: 0
Examples
15 occurs since it can be written as 1 + 1 + 13; 16 does not occur since it cannot be written as a sum of at most 3 terms from the set {0,1,4,13,32,...} = A051912.
Programs
-
Mathematica
li=Take[A051912, 16]; Select[Union[Flatten[Outer[Plus, li, li, li]]], # <= Last[li] &]
Comments