|
Search: id:A064649
|
|
| |
|
| 1, 4, 12, 40, 140, 816, 5082, 40800, 363258, 3632880, 39916910, 479052528, 6227020956, 87178936992, 1307674429440, 20922800222848, 355687428096272, 6402373892575992, 121645100408832342, 2432902011892837920
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,100
|
|
MAPLE
|
A064649 := proc(n) local d, s; s := 0; for d in divisors(n) do s := s + phi(n/d)*(n/d)^d*d!; od; RETURN(s); end;
|
|
PROGRAM
|
(PARI) { for (n=1, 100, a=0; v=divisors(n); for (i=1, length(v), d=v[i]; a+=eulerphi(n/d)*(n/d)^d*d!); write("b064649.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 21 2009]
|
|
CROSSREFS
|
Also n*A061417[n]. Cf. A047918, A002619.
Sequence in context: A081875 A102433 A100320 this_sequence A149332 A149333 A074032
Adjacent sequences: A064646 A064647 A064648 this_sequence A064650 A064651 A064652
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Antti Karttunen Oct 04 2001
|
|
|
Search completed in 0.002 seconds
|
