|
Search: id:A094539
|
|
| |
|
| 0, 0, 1, 3, 11, 33, 105, 315, 961, 2883, 8697, 26091, 78411, 235233, 706113, 2118339, 6356243, 19068729, 57209865, 171629595, 514899771, 1544699313, 4634130897, 13902392691, 41707276809, 125121830427, 375365787489, 1126097362467
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
MATHEMATICA
|
a[0] = 1; a[n_] := a[n] = 3*a[n - 1] - If[EvenQ[n], a[n/2], 0]; Insert[Table[(3^(n) - a[n])/3, {n, 1, 30}], 0, 1] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 24 2006
|
|
CROSSREFS
|
Cf. A003000, A019308, A094538.
Adjacent sequences: A094536 A094537 A094538 this_sequence A094540 A094541 A094542
Sequence in context: A081673 A081250 A135247 this_sequence A032199 A018413 A004662
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
njas, Jun 06 2004
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 24 2006
|
|
|
Search completed in 0.002 seconds
|
