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,3

Links

Table of n, a(n) for n=0..30.

Example

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.

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

Crossrefs

Cf. A114994, A171426.

Sequence in context: A274492 A147536 A347434 * A108300 A041469 A089102

Adjacent sequences: A173868 A173869 A173870 * A173872 A173873 A173874

Keyword

nonn

Author

Alford Arnold, Mar 05 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

Status

approved