|
Search: id:A119769
|
|
|
| A119769 |
|
a(n) = (n-1)!*sum{1<=k<=n, GCD(k,n)=1} H(k), where H(k) = sum{j=1 to k} 1/j, the k-th harmonic number. |
|
+0
1
|
|
| 1, 1, 5, 17, 154, 394, 8028, 38856, 490992, 2995632, 80627040, 355102560, 13575738240, 88085232000, 1686518184960, 26227674547200, 867718162483200, 5518758670387200, 309920046408806400, 2608370444213452800
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MAPLE
|
H := proc(n::integer) RETURN( sum('1/j', j=1..n) ) ; end: A119769 := proc(n::integer) local resul, k ; resul :=0 ; for k from 1 to n do if gcd(k, n) = 1 then resul := resul+H(k) ; fi ; od : RETURN((n-1)!*resul) ; end: for n from 1 to 30 do printf("%d, ", A119769(n)) ; od: - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 21 2006
|
|
MATHEMATICA
|
f[n_] := (n - 1)!Sum[If[GCD[k, n] == 1, HarmonicNumber[k], 0], {k, n}]; Array[f, 21] - Robert G. Wilson v (rgwv(at)rgwv.com), Jun 20 2006
|
|
PROGRAM
|
; ; PLT DrScheme - Joshua Zucker (joshua.zucker(AT)stanfordalumni.org), Jun 21 2006
; ; harmonic is the sum of reciprocals, ! has the obvious definition.
(define (A119769 n)
(* (! (sub1 n))
(apply + (map harmonic (filter (lambda (k) (= 1 (gcd n k))) (build-list n (lambda (k) (add1 k))))))))
(build-list 30 (lambda (n) (A119769 (add1 n))))
|
|
CROSSREFS
|
Sequence in context: A076448 A096310 A071057 this_sequence A090886 A097490 A164740
Adjacent sequences: A119766 A119767 A119768 this_sequence A119770 A119771 A119772
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet Jun 19 2006
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jun 20 2006
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), R. J. Mathar (mathar(AT)strw.leidenuniv.nl) and Joshua Zucker (joshua.zucker(AT)stanfordalumni.org), Jun 20 2006
|
|
|
Search completed in 0.002 seconds
|
