|
Search: id:A124407
|
|
|
| A124407 |
|
For n>=1, 1 = sum{n/2<=k<n, GCD(k,n)=1} a(k). |
|
+0
2
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,24
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
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] (*Chandler*)
|
|
CROSSREFS
|
Cf. A124406.
Sequence in context: A088689 A076898 A089385 this_sequence A137581 A156311 A113414
Adjacent sequences: A124404 A124405 A124406 this_sequence A124408 A124409 A124410
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Leroy Quet Oct 31 2006
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 13 2006
|
|
|
Search completed in 0.002 seconds
|
