A047483 Numbers that are congruent to {0, 1, 2, 5, 7} mod 8.

0, 1, 2, 5, 7, 8, 9, 10, 13, 15, 16, 17, 18, 21, 23, 24, 25, 26, 29, 31, 32, 33, 34, 37, 39, 40, 41, 42, 45, 47, 48, 49, 50, 53, 55, 56, 57, 58, 61, 63, 64, 65, 66, 69, 71, 72, 73, 74, 77, 79, 80, 81, 82, 85, 87, 88, 89

Offset

1,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

Formula

G.f.: x^2*(1 + x + 3*x^2 + 2*x^3 + x^4)/((1-x)^2*(1 + x + x^2 + x^3 + x^4)). - Colin Barker, May 14 2012

a(n) = a(n-1) + a(n-5) - a(n-6). - Vincenzo Librandi, May 17 2012

Mathematica

Select[Range[0, 300], MemberQ[{0, 1, 2, 5, 7}, Mod[#, 8]]&] (* Vincenzo Librandi, May 17 2012 *)
LinearRecurrence[{1, 0, 0, 0, 1, -1}, {0, 1, 2, 5, 7, 8}, 80] (* Harvey P. Dale, Jul 04 2021 *)

Prog

(Magma) I:=[0, 1, 2, 5, 7, 8]; [n le 6 select I[n] else Self(n-1)+Self(n-5)-Self(n-6): n in [1..70]]; // Vincenzo Librandi, May 17 2012

Crossrefs

Sequence in context: A210449 A080639 A186306 * A339309 A167408 A047388

Adjacent sequences: A047480 A047481 A047482 * A047484 A047485 A047486

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved