|
| |
|
|
A166545
|
|
a(n)=13n-a(n-1), (with a(1)=13)
|
|
0
| |
|
|
13, 13, 26, 26, 39, 39, 52, 52, 65, 65, 78, 78, 91, 91, 104, 104, 117, 117, 130, 130, 143, 143, 156, 156, 169, 169, 182, 182, 195, 195, 208, 208, 221, 221, 234, 234, 247, 247, 260, 260, 273, 273, 286, 286, 299, 299, 312, 312, 325, 325, 338, 338, 351, 351, 364, 364
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n)=(13/4)-(13/4)*(-1)^n+(13/2)*n, with a(1)=13 [From Paolo P. Lava (paoloplava(AT)gmail.com), Nov 10 2009]
|
|
|
EXAMPLE
| For n=2, a(2)=13*2-13=13; n=3, a(3)=13*3-13=26; n=4, a(4)=52-26=26
|
|
|
MATHEMATICA
| Transpose[NestList[{First[#]+1, 13(First[#]+1)-Last[#]}&, {1, 13}, 70]] [[2]] (* or *) RecurrenceTable[{a[1]==13, a[n]==13n-a[n-1]}, a, {n, 70}](* From Harvey P. Dale, Jan 31 2012 *)
|
|
|
CROSSREFS
| Sequence in context: A003888 A040157 A003889 * A022347 A026907 A147249
Adjacent sequences: A166542 A166543 A166544 * A166546 A166547 A166548
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Oct 22 2009
|
|
|
EXTENSIONS
| Corrected by Harvey P. Dale, Jan 31 2012
|
| |
|
|
