|
| |
|
|
A170856
|
|
a(0) = 0, a(1) = 1; a(2^i + j) = 2a(j) + 3a(j + 1) for 0 <= j < 2^i.
|
|
1
|
|
|
|
0, 1, 3, 11, 3, 11, 39, 31, 3, 11, 39, 31, 39, 139, 171, 71, 3, 11, 39, 31, 39, 139, 171, 71, 39, 139, 171, 179, 495, 791, 555, 151, 3, 11, 39, 31, 39, 139, 171, 71, 39, 139, 171, 179, 495, 791, 555, 151, 39, 139, 171, 179, 495, 791, 555, 259, 495, 791, 879, 1843, 3363, 3247
(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);
2*procname(j)+3*procname(j+1);
end proc:
f(0):= 0: f(1):= 1:
|
|
|
MATHEMATICA
|
f[n_] := f[n] = With[{j = n - 2^Floor@Log[2, n]}, 2 f[j] + 3 f[j+1]];
f[0] = 0; f[1] = 1;
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
