A068038 Number of subsets of {1,2,3,...,n} that sum to 0 mod 17.

1, 1, 1, 1, 1, 1, 3, 8, 15, 30, 60, 120, 241, 482, 964, 1928, 3856, 7712, 15422, 30842, 61682, 123362, 246722, 493446, 986896, 1973790, 3947580, 7895160, 15790320, 31580642, 63161284, 126322568, 252645136, 505290272, 1010580544, 2021161084

Offset

0,7

Links

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

Formula

Empirical G.f.: -(2*x^17-x^12+x^8-2*x^7-x^6+x^5+x^4+x^3+x^2+x-1) / ((2*x-1)*(2*x^17-1)). [Colin Barker, Dec 22 2012]

Prog

(PARI) {A068038(n)=local(v, v1); v=vector(17); v[1]=1; for(i=1, n, v1=vector(17); for(j=0, 16, v1[j+1]=v[j+1]+v[(j-i)%17+1]); v=v1); v[1]} (Max Alekseyev, Jul 23 2005))

Crossrefs

17th row of A068009.

Sequence in context: A116686 A317252 A135350 * A196087 A295735 A309052

Adjacent sequences: A068035 A068036 A068037 * A068039 A068040 A068041

Keyword

nonn

Author

Antti Karttunen, Feb 11 2002

Extensions

Rechecked by Max Alekseyev, Jul 23 2005

Status

approved