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