Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #5 Jan 13 2015 07:33:44
%S 1,3,7,15,14,7,15,29,23,15,27,26,15,31,57,47,46,43,47,55,59,56,29,61,
%T 63,95,114,54,55,63,93,87,63,107,87,63,110,93,63,110,95,87,90,95,119,
%U 123,125,119,111,125,127,175,159,127,227,159,127,230,159,127
%N a(n) = A252867(n) OR A252867(n+1).
%C Binary coded union of the two sets, which are coded by A252867(n) and by A252867(n+1);
%C a(n) = A252867(n) + A252867(n+1), as A252867(n) AND A252867(n+1) = 0 by definition of A252867.
%H Reinhard Zumkeller, <a href="/A253582/b253582.txt">Table of n, a(n) for n = 0..10000</a>
%e . n | A252867(n) | binary | a(n) | binary
%e . ----+------------+----------+--------+----------
%e . 0 | 0 | 0 | 1 | 1
%e . 1 | 1 | 1 | 3 | 11
%e . 2 | 2 | 10 | 7 | 111
%e . 3 | 5 | 101 | 15 | 1111
%e . 4 | 10 | 1010 | 14 | 1110
%e . 5 | 4 | 100 | 7 | 111
%e . 6 | 3 | 11 | 15 | 1111
%e . 7 | 12 | 1100 | 29 | 11101
%e . 8 | 17 | 10001 | 23 | 10111
%e . 9 | 6 | 110 | 15 | 1111
%e . 10 | 9 | 1001 | 27 | 11011
%e . 11 | 18 | 10010 | 26 | 11010
%e . 12 | 8 | 1000 | 15 | 1111
%e . 13 | 7 | 111 | 31 | 11111
%e . 14 | 24 | 11000 | 57 | 111001
%e . 15 | 33 | 100001 | 47 | 101111
%e . 16 | 14 | 1110 | 46 | 101110
%e . 17 | 32 | 100000 | 43 | 101011
%e . 18 | 11 | 1011 | 47 | 101111
%e . 19 | 36 | 100100 | 55 | 110111
%e . 20 | 19 | 10011 | 59 | 111011
%e . 21 | 40 | 101000 | 56 | 111000
%e . 22 | 16 | 10000 | 29 | 11101
%e . 23 | 13 | 1101 | 61 | 111101
%e . 24 | 48 | 110000 | 63 | 111111
%e . 25 | 15 | 1111 | 95 | 1011111
%e . 26 | 80 | 1010000 | 114 | 1110010
%e . 27 | 34 | 100010 | 54 | 110110
%e . 28 | 20 | 10100 | 55 | 110111
%e . 29 | 35 | 100011 | 63 | 111111
%e . 30 | 28 | 11100 | 93 | 1011101
%o (Haskell)
%o import Data.Bits ((.|.))
%o a253582 n = a253582_list !! n
%o a253582_list = zipWith (.|.) a252867_list $ tail a252867_list :: [Int]
%o a253582_list' = zipWith (+) a252867_list $ tail a252867_list
%Y Cf. A252867, A253581, A007088.
%K nonn
%O 0,2
%A _Reinhard Zumkeller_, Jan 12 2015