|
|
A084887
|
|
Triangular array, read by rows: T(n,k) = denominator of arithmetic derivative of k/n, 1<=k<=n.
|
|
3
|
|
|
1, 4, 1, 9, 9, 1, 4, 4, 2, 1, 25, 25, 25, 25, 1, 36, 9, 4, 9, 36, 1, 49, 49, 49, 49, 49, 49, 1, 16, 4, 16, 4, 16, 2, 16, 1, 27, 27, 9, 27, 27, 9, 27, 27, 1, 100, 25, 100, 25, 4, 25, 100, 25, 100, 1, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 1, 9, 36, 4, 9, 36, 4, 36
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
............................. 0
....................... -1/4 ..... 0
................ -1/9 ...... 1/9 ...... 0
.... ...... -1/4 ..... -1/4 .... -1/2 ...... 0
.. .. -1/25 .... 3/25 ..... 2/25 ..... 16/25 .... 0
-5/36 ..... -1/9 ..... -1/4 ..... 1/9 .... -19/36 .... 0.
|
|
MATHEMATICA
|
ader[n_Integer] := ader[n] = Switch[n, 0|1, 0, _, If[PrimeQ[n], 1, Sum[Module[{p, e}, {p, e} = pe; n e/p], {pe, FactorInteger[n]}]]];
ader[Rational[n_, k_]] := (ader[n] k - ader[k] n)/k^2;
T[n_, k_] := ader[k/n] // Denominator;
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|