|
%I #6 Mar 20 2015 19:08:11
%S 6,14,22,26,28,30,38,46,54,58,60,62,70,78,86,90,92,94,102,106,108,110,
%T 114,116,118,120,122,124,126,134,142,150,154,156,158,166,174,182,186,
%U 188,190,198,206,214,218,220,222,230,234,236,238,242,244
%N Even numbers not in A036990.
%H Reinhard Zumkeller, <a href="/A125086/b125086.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%o (Haskell)
%o a125086 n = a125086_list !! (n-1)
%o a125086_list = f [0, 2 ..] a036990_list where
%o f (u:us) vs'@(v:vs) = if u == v then f us vs else u : f us vs'
%o -- _Reinhard Zumkeller_, Aug 01 2013
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jan 25 2007
|
