A124407 For n >= 1, 1 = Sum_{n/2<=k<n, gcd(k,n)=1} a(k).

1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, -1, -1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, -2, -2, 0, 1, 1, -1, 1, 0, 1, 1, 0, 3, -4, -3, 1, 1, 1, 6, -5, -5, 0, 0, 6, 3, -6, -2, -10, -2, 13, 0, -3, 1, -12, -2, 17, 2, -1, -2, -30, 0, 41, -1, -6, 0, -22, 3, 22, 2, -6, -3, -14, -2, 15, -1, 4, 2, -27, 8, 24, 2, -49, -7, -1, 0, 45, -2, -24, 5, -89, 0, 83, 5, 25, -3, -9, -8, 8

Offset

1,24

Links

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

Example

The integers which are >= 9/2 and are < 9 and are coprime to 9 are 5,7,8. So a(5) + a(7) + a(8) = 1.

Mathematica

f[n_] := Select[Range[Ceiling[n/2], n], GCD[ #, n] == 1 &]; g[l_] :=Append[l, 1 - Plus @@ l[[Most[f[Length[l] + 2]]]]]; Nest[g, {}, 100] (* Ray Chandler, Nov 13 2006 *)

Crossrefs

Cf. A124406.

Sequence in context: A076898 A174294 A089385 * A294624 A290531 A206442

Adjacent sequences: A124404 A124405 A124406 * A124408 A124409 A124410

Keyword

sign

Author

Leroy Quet, Oct 31 2006

Extensions

Extended by Ray Chandler, Nov 13 2006

Status

approved