|
Search: id:A152919
|
|
|
| A152919 |
|
Simple switched sequence: a(n)= If[n == 1, 1, If[Mod[n, 2] == 0, n^2/4 + n/2, n^2/4 + n - 5/4]]. |
|
+0
1
|
|
| 1, 2, 4, 6, 10, 12, 18, 20, 28, 30, 40, 42, 54, 56, 70, 72, 88, 90, 108, 110, 130, 132, 154, 156, 180, 182, 208, 210, 238, 240, 270, 272, 304, 306, 340, 342, 378, 380, 418, 420, 460, 462, 504, 506, 550, 552, 598, 600, 648, 650, 700, 702, 754, 756, 810, 812, 868
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
a(n)= If[n == 1, 1, If[Mod[n, 2] == 0, n^2/4 + n/2, n^2/4 + n - 5/4]].
|
|
MATHEMATICA
|
Clear[a, n]; a[n_] := If[n == 1, 1, If[Mod[n, 2] == 0, n^2/4 + n/2, n^2/4 + n - 5/4]];
Table[a[n], {n, 1, 100}]
|
|
CROSSREFS
|
Sequence in context: A045954 A072542 A162578 this_sequence A092249 A002088 A019332
Adjacent sequences: A152916 A152917 A152918 this_sequence A152920 A152921 A152922
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 15 2008
|
|
|
Search completed in 0.002 seconds
|
