

A170863


a(0) = 1, a(1) = 1; a(2^i + j) = 3a(j) + a(j + 1) for 0 <= j < 2^i.


1



1, 1, 4, 7, 4, 7, 19, 25, 4, 7, 19, 25, 19, 40, 82, 79, 4, 7, 19, 25, 19, 40, 82, 79, 19, 40, 82, 94, 97, 202, 325, 241, 4, 7, 19, 25, 19, 40, 82, 79, 19, 40, 82, 94, 97, 202, 325, 241, 19, 40, 82, 94, 97, 202, 325, 256, 97, 202, 340, 379, 493, 931, 1216, 727, 4, 7, 19, 25, 19, 40
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS



MAPLE

f:= proc(n) option remember;
local j;
j:= n  2^ilog2(n);
3*procname(j) + procname(j+1)
end proc:
f(0):= 1: f(1):= 1:


MATHEMATICA

f[n_] := f[n] = With[{j = n  2^Floor@Log[2, n]}, 3 f[j] + f[j+1]];
f[0] = f[1] = 1;


CROSSREFS



KEYWORD



AUTHOR



STATUS

approved



