A278546 Even numbers that cannot be expressed as a sum of 3 or fewer terms of A035928.
8, 18, 28, 130, 134, 138, 148, 158, 176, 318, 530, 538, 548, 576, 644, 1300, 2170, 2202, 2212, 2228, 2230, 2248, 8706, 8938, 8948, 34970, 35082
Offset: 1
Programs
-
Mathematica
nn = 10^5; Complement[Range[2, nn, 2], Union@ Map[Total, Rest@ Tuples[{0}~Join~#, 3]] &@ Select[Range@ nn, Function[k, Reverse[# /. {1 -> 0, 0 -> 1}] == # &@ IntegerDigits[k, 2]]]] (* Michael De Vlieger, Nov 23 2016, after Harvey P. Dale at A035928 *)
Comments