OFFSET
0,3
COMMENTS
LINKS
MATHEMATICA
Most@ # + Rest@ # &@ Accumulate@ Join[{0, 0}, Flatten@ Table[Range[1, 2^n - 1, 2], {n, 0, 6}]] (* Michael De Vlieger, Jan 05 2016, after Ivan N. Ianakiev at A256249 *)
PROG
(PARI) f(n)=n++; b=#binary(n>>1); (4^b-1)/3+(n-2^b)^2; \\ A256249
a(n) = if (n, f(n)+f(n-1), 0);
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 02 2016
STATUS
approved