|
| |
|
|
A110376
|
|
SUM (n!/r) where r is relatively prime to n and less than n.
|
|
2
| |
|
|
1, 2, 9, 32, 250, 864, 12348, 67584, 804816, 5760000, 116915040, 686776320, 19323757440, 157991178240, 2951575200000, 42301705420800, 1202482800691200, 10048607738265600, 425162773111910400, 4541227794432000000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| a(6) = 6!{1/1 +1/5}=864.
|
|
|
MAPLE
| a:=proc(n) local s, r: s:=0: for r from 1 to n do if gcd(r, n)=1 then s:=s+1/r else s:=s: fi: od: n!*s end: seq(a(n), n=1..23); (Deutsch)
|
|
|
MATHEMATICA
| Do[Print[n! * Plus @@ Map[(1/#)&, Select[Range[n], GCD[ #, n] == 1 &]]], {n, 1, 30}] (Propper)
|
|
|
CROSSREFS
| Cf. A110373, A110374, A038048.
Sequence in context: A013501 A179230 A114853 * A036505 A056916 A139628
Adjacent sequences: A110373 A110374 A110375 * A110377 A110378 A110379
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jul 24 2005
|
|
|
EXTENSIONS
| More terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Ryan Propper (rpropper(AT)stanford.edu) and Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jul 25 2005
|
| |
|
|
