A173871 Row sums of A114994.
0, 1, 5, 16, 53, 145, 441, 1165, 3325, 8840, 24268, 63542, 172420, 446485, 1182329, 3055461, 7966038, 20351233, 52507157, 133014971, 339170500, 853849745, 2154442760, 5382418592, 13481157491, 33449252747, 83091028844, 205013093570, 505799029994, 1240477207822, 3042433058325
Offset: 0
Keywords
Examples
A114994 begins: 0; 1; => row sum 1; 2,3; => row sum 5; 4,5,7; => row sum 16; 8,9,10,11,15; => row sum 53.
Programs
-
Maple
isA114994aux := proc(n) local k; for k from 0 do fk1 := 4^(k+1) ; if 2^k mod fk1 = n mod fk1 then return true; elif (2^k mod fk1) > n then return false; end if; end do: end proc: isA114994 := proc(n) option remember ; if n = 0 then return true; elif type(n,'odd') then if n <= 11 then true; else return procname((n-1)/2) ; fi; else return ( isA114994(n/2) and isA114994aux(n/2) ); end if; end proc: A173871 := proc(n) a := 0 ; for k from 2^n to 2^(n+1)-1 do if isA114994(k) then a := a+k; end if; end do; a ; end proc: seq(A173871(n),n=0..19) ; # R. J. Mathar, Mar 26 2010
Extensions
a(9)-a(19) from R. J. Mathar, Mar 26 2010
a(0) prepended by and more terms from Jinyuan Wang, Feb 23 2020