|
| |
|
|
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, 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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..57.
|
|
|
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: A072542 A167856 A162578 * A092249 A002088 A019332
Adjacent sequences: A152916 A152917 A152918 * A152920 A152921 A152922
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Roger L. Bagula, Dec 15 2008
|
|
|
STATUS
|
approved
|
| |
|
|
