A103486 a(0)=7, a(1)=11, a(2)=13, a(3)=17; then a(n) = a(n-1)+a(n-3)-a(n-4).

7, 11, 13, 17, 21, 23, 27, 31, 33, 37, 41, 43, 47, 51, 53, 57, 61, 63, 67, 71, 73, 77, 81, 83, 87, 91, 93, 97, 101, 103, 107, 111, 113, 117, 121, 123, 127, 131, 133, 137, 141, 143, 147, 151, 153, 157, 161, 163, 167, 171, 173, 177, 181, 183, 187, 191, 193, 197, 201

Offset

0,1

Links

Table of n, a(n) for n=0..58.

Index entries for linear recurrences with constant coefficients, signature (1, 0, 1, -1).

Formula

G.f.: (-3*x^3+2*x^2+4*x+7)/((x-1)^2*(x^2+x+1)). - Harvey P. Dale, Aug 26 2012

Mathematica

a[0] = 7; a[1] = 11; a[2] = 13; a[3] = 17; a[n_Integer?Positive] := a[n] = a[n - 1] + a[n - 3] - a[n - 4]; aa = Table[a[n], {n, 0, 200}]
LinearRecurrence[{1, 0, 1, -1}, {7, 11, 13, 17}, 60] (* Harvey P. Dale, Aug 26 2012 *)

Crossrefs

Sequence in context: A293201 A110583 A270999 * A086843 A260714 A049481

Adjacent sequences: A103483 A103484 A103485 * A103487 A103488 A103489

Keyword

nonn

Author

Roger L. Bagula, Mar 21 2005

Status

approved