A160543 Not divisible by 17

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 69, 70, 71

Offset

1,2

Links

Table of n, a(n) for n=1..67.

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

Formula

a(n) = a(n-1)+a(n-16)-a(n-17). G.f. x*(1 +x +x^2 +x^3 +x^4 +x^5 +x^6 +x^7 +x^8 +x^9 +x^10 +x^11 +x^12 +x^13 +x^14 +x^15 +x^16) / ( (1+x) *(1+x^2) *(1+x^4) *(1+x^8) *(x-1)^2 ). - R. J. Mathar, Sep 30 2013

Mathematica

Complement[Range[100], 17Range[Floor[100/17]]] (* Harvey P. Dale, Oct 24 2011 *)

Prog

(Sage) [i for i in range(0, 72) if gcd(17, i) == 1]

Crossrefs

Sequence in context: A132033 A194966 A133137 * A023810 A102800 A072676

Adjacent sequences: A160540 A160541 A160542 * A160544 A160545 A160546

Keyword

nonn,easy

Author

Zerinvary Lajos, May 18 2009

Status

approved