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

Author

Zerinvary Lajos, May 18 2009

Keywords

• nonn
• easy

Links

• 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).

Programs

Mathematica

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

Sage

[i for i in range(0,72) if gcd(17, i) == 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