|
|
A170860
|
|
a(0) = 1, a(1) = 0; a(2^i + j) = a(j) + 3a(j + 1) for 0 <= j < 2^i.
|
|
1
|
|
|
1, 0, 1, 3, 1, 3, 10, 6, 1, 3, 10, 6, 10, 33, 28, 9, 1, 3, 10, 6, 10, 33, 28, 9, 10, 33, 28, 36, 109, 117, 55, 12, 1, 3, 10, 6, 10, 33, 28, 9, 10, 33, 28, 36, 109, 117, 55, 12, 10, 33, 28, 36, 109, 117, 55, 39, 109, 117, 136, 363, 460, 282, 91, 15, 1, 3, 10, 6, 10, 33, 28, 9, 10, 33, 28, 36
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MAPLE
|
f:= proc(n) option remember;
local j;
j:= n - 2^ilog2(n);
procname(j) + 3*procname(j+1)
end proc:
f(0):= 1: f(1):= 0:
|
|
MATHEMATICA
|
Nest[Append[#1, #1[[#2 + 1]] + 3 #1[[#2 + 2]]] & @@ {#1, #2 - 2^Floor@ Log2@ #2} & @@ {#, Length@ #} &, {1, 0}, 82] (* Michael De Vlieger, Jul 10 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|