|
|
A178774
|
|
a(2n) = 3*a(n), a(2n+1) = a(n) + a(n-1), with a(0)=a(1)=1.
|
|
1
|
|
|
1, 1, 3, 2, 9, 4, 6, 5, 27, 11, 12, 13, 18, 10, 15, 11, 81, 32, 33, 38, 36, 23, 39, 25, 54, 31, 30, 28, 45, 25, 33, 26, 243, 92, 96, 113, 99, 65, 114, 71, 108, 74, 69, 59, 117, 62, 75, 64, 162, 79, 93, 85, 90, 61, 84, 58, 135, 73, 75, 70, 99, 58, 78, 59, 729, 269, 276, 335, 288
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MAPLE
|
option remember;
if n <=1 then
1;
elif type(n, even) then
3*procname(n/2) ;
else
procname(floor(n/2))+procname(floor(n/2)-1) ;
end if;
|
|
MATHEMATICA
|
a[0] = a[1] = 1; a[n_] := a[n] = If[ OddQ@n, a[(n - 1)/2] + a[(n - 3)/2], 3*a[n/2]]; Array[a, 70]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|