|
Search: id:A125131
|
|
|
| A125131 |
|
Product 1-p, where p ranges over the prime factors of n with multiplicity. |
|
+0
1
|
|
| 1, -1, -2, 1, -4, 2, -6, -1, 4, 4, -10, -2, -12, 6, 8, 1, -16, -4, -18, -4, 12, 10, -22, 2, 16, 12, -8, -6, -28, -8, -30, -1, 20, 16, 24, 4, -36, 18, 24, 4, -40, -12, -42, -10, -16, 22, -46, -2, 36, -16, 32, -12, -52, 8, 40, 6, 36, 28, -58, 8, -60, 30, -24, 1, 48, -20, -66, -16, 44, -24, -70, -4, -72, 36, -32
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
f(1), where f is the monic polynomial whose zeros are the prime factors of n with multiplicity.
a(p) = 1-p for any prime number p.
|
|
FORMULA
|
Completely multiplicative with a(p) = 1-p. - Franklin T. Adams-Watters, Jan 17 2007
a(n) = f(1), where f(x)=(x-p_1)(x-p_2)...(x-p_m), where { p_1,p_2,...p_m } are the prime factors of n with multiplicity.
a(n) = A003958(n) * A008836(n).
|
|
EXAMPLE
|
a(120) = -8 because the prime factorization of 120 is 2*2*2*3*5, so f(x)=(x-2)(x-2)(x-2)(x-3)(x-5), and f(1)=(-1)*(-1)*(-1)*(-2)*(-4)= -8.
|
|
MATHEMATICA
|
f[n_] := Times @@ (-Flatten[Table[ #1, {#2}] & @@@ FactorInteger@n] + 1); Array[g, 80] (* Robert G. Wilson v (rgwv@rgwv.com), Jan 10 2007 *)
|
|
PROGRAM
|
f=polyroot(factor(x)); f(1)
|
|
CROSSREFS
|
Cf. A003958, A008836.
Sequence in context: A070777 A023900 A046791 this_sequence A003958 A082729 A076686
Adjacent sequences: A125128 A125129 A125130 this_sequence A125132 A125133 A125134
|
|
KEYWORD
|
easy,sign,mult
|
|
AUTHOR
|
Mitch Cervinka (puritan(AT)toast.net), Jan 10 2007
|
|
EXTENSIONS
|
Edited by Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Jan 17 2007
|
|
|
Search completed in 0.002 seconds
|
