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