|
Search: id:A127942
|
|
|
| A127942 |
|
a(n) = denominator of b(n), where b(1)=1, b(n) = sum{1<=k<n,GCD(k,n)=1} 1/b(k). |
|
+0
2
|
|
| 1, 1, 1, 2, 6, 19, 2850, 459458, 216537731091, 4850944054979611, 7043380548155783510819615297769488951475, 9278148088243438548919355731906562181020842484
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
EXAMPLE
|
{b(n)}: 1,1,2,3/2,19/6,25/19,12091/2850,... Since 1 and 5 are the positive integers which are coprime to 6 and are < 6, then b(6) = 1/b(1) + 1/b(5) = 1 + 6/19 = 25/19.
|
|
MATHEMATICA
|
f[l_List] := Block[{n = Length[l] + 1, d}, d = Select[Range[n - 1], GCD[ #, n] == 1 &]; Append[l, Sum[1/l[[d[[i]]]], {i, Length[d]}]]]; Denominator[Nest[f, {1}, 12]] (*Chandler*)
|
|
CROSSREFS
|
Cf. A127941.
Sequence in context: A057240 A079564 A079453 this_sequence A110956 A028689 A156269
Adjacent sequences: A127939 A127940 A127941 this_sequence A127943 A127944 A127945
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
Leroy Quet Feb 08 2007
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 09 2007
|
|
|
Search completed in 0.002 seconds
|
