|
Search: id:A109534
|
|
|
| A109534 |
|
a(0)=1, a(n)=n+a(n-1) if n mod 2=0, a(n)=3n-a(n-1) if n mod 2 = 1. |
|
+0
1
|
|
| 1, 2, 4, 5, 9, 6, 12, 9, 17, 10, 20, 13, 25, 14, 28, 17, 33, 18, 36, 21, 41, 22, 44, 25, 49, 26, 52, 29, 57, 30, 60, 33, 65, 34, 68, 37, 73, 38, 76, 41, 81, 42, 84, 45, 89, 46, 92, 49, 97, 50, 100, 53, 105, 54, 108, 57, 113, 58, 116, 61, 121, 62, 124, 65, 129, 66, 132, 69, 137
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MAPLE
|
a:=proc(n) if n=0 then 1 elif n mod 2=0 then n+a(n-1) else 3*n-a(n-1) fi end: seq(a(n), n=0..68);
|
|
MATHEMATICA
|
a[0] = 1; a[n_] := a[n] = If[Mod[n, 2] == 0, a[n - 1] + n, -a[n - 1] + 3*n] aa = Table[a[n], {n, 0, 100}]
|
|
CROSSREFS
|
Adjacent sequences: A109531 A109532 A109533 this_sequence A109535 A109536 A109537
Sequence in context: A104311 A021980 A011175 this_sequence A011341 A116477 A116920
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 18 2005
|
|
|
Search completed in 0.002 seconds
|
