

A290424


Even numbers that are not the sum or difference of two binary palindromes (A006995).


0



9404, 10120, 13714, 14576, 15812, 18622, 35102, 35438, 38696, 39164, 39656, 40072, 40712, 42776, 43096, 43256, 43780, 44560, 45284, 45796, 46346, 46532, 46624, 46858, 46880, 46984, 47936, 49622, 50810, 55048, 56600, 58564, 60932, 61190, 62792, 62986, 67816, 69244
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Intersection of A261678 and A290393.


LINKS

Table of n, a(n) for n=1..38.


MATHEMATICA

g[w_] := FromDigits[Join @@ w, 2]; bp[1]={1}; bp[n_] := Block[{b, r, h = Floor[n/2]}, Sort@ Flatten@ Table[b = IntegerDigits[k, 2, h]; r = Reverse@ b; If[OddQ@n, g /@ {{b, {0}, r}, {b, {1}, r}}, g@{b, r}], {k, 2^h/2, 2^h  1}]]; pp = Sort@ Flatten[Table[bp[h], {h, 32}]]; T = Range[35000]*0; i = 0; While[i < Length[pp]  1, i++; j = i + 1; While[j <= Length[pp] && (d = pp[[j]]  pp[[i]]) <= 70000, T[[d/2]] = 1; j++]]; pp = Select[pp, # <= 70000 &]; Select[2 Flatten[ Position[T, 0]], {} == Quiet@ IntegerPartitions[#, {2}, pp, 1] &] (* Giovanni Resta, Aug 08 2017 *)


CROSSREFS

Cf. A006995, A241491, A261678, A290393.
Sequence in context: A202645 A183796 A183733 * A210082 A330838 A064587
Adjacent sequences: A290421 A290422 A290423 * A290425 A290426 A290427


KEYWORD

nonn,base


AUTHOR

Altug Alkan, Jul 31 2017


EXTENSIONS

a(7)a(38) from Giovanni Resta, Aug 08 2017


STATUS

approved



