|
%I #8 Sep 18 2015 20:06:26
%S 1,1,3,8,5,1,15,12,9,5,1,31,28,25,20,13,8,3,63,60,57,52,47,44,41,37,
%T 33,29,24,17,13,8,3,127,124,121,116,111,108,105,99,91,88,85,81,77,70,
%U 66,62,57,52,47,40,33,29,24,15,10,6,2,254,251,248,245,239
%N Distance of A260273(n) to next power of 2.
%C This sequence, as well as A261712, is suggested by A261396 and A261416.
%H Reinhard Zumkeller, <a href="/A261644/b261644.txt">Rows n = 1..20 of triangle, flattened</a>
%F a(n) = A062383(A260273(n)) - A260273(n).
%e . 1: 1
%e . 2: 1
%e . 3: 3
%e . 4: 8,5,1
%e . 5: 15,12,9,5,1
%e . 6: 31,28,25,20,13,8,3
%e . 7: 63,60,57,52,47,44,41,37,33,29,24,17,13,8,3
%e . 8: 127,124,121,116,111,108,105,99,91,88,85,81,77,70,... (27 terms)
%e . 9: 254,251,248,245,239,236,233,227,218,213,207,202,195,,... (49 terms)
%o (Haskell)
%o a261644 n = a261644_list !! (n-1)
%o a261644_list = zipWith (-)
%o (map a062383 a260273_list) $ map fromIntegral a260273_list
%o a261644_tabf = [1] : f (tail $ zip a261645_list a261644_list) where
%o f dxs = (map snd (dxs'' ++ [dx])) : f dxs' where
%o (dxs'', dx:dxs') = span ((<= 0) . fst) dxs
%o a261644_row n = a261644_tabf !! (n-1)
%Y Cf. A260273, A062383, A261645 (first differences), A261712 (reversed), A261646 (row lengths).
%K nonn,tabf
%O 1,3
%A _Reinhard Zumkeller_, Aug 30 2015
|
