|
|
|
|
1, 1, 3, 3, 8, 3, 14, 7, 14, 8, 27, 7, 35, 12, 20, 18, 50, 11, 58, 16, 35, 24, 74, 15, 68, 29, 54, 29, 101, 15, 111, 39, 64, 41, 84, 26, 140, 47, 78, 40, 158, 24, 168, 51, 75, 61, 186, 34, 170, 49, 111, 66, 217, 39, 160, 65, 131, 80, 247, 32, 261, 84, 122, 92, 197, 45, 292, 92, 162, 60, 312, 55, 326, 104, 135, 106, 263, 55, 356, 85, 206
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
Triangle A054521 * A000005 as a vector; where 1's indicate the relative primes of n by rows and A000005 = d(n): (1, 2, 2, 3, 2, 4, 2, 4, 3,...)
|
|
EXAMPLE
|
a(8) = 7 since the relative primes of 8 are (1, 3, 5, 7). (d(1) + d(3) + d(5) + d(7)) = 1 + 2 + 2 + 2). Or, a(8) = 7 = (1, 0, 1, 0, 1, 0, 1, 0) dot (1, 2, 2, 3, 2, 4, 2, 4), where (1, 0, 1, 0, 1, 0, 1, 0) = row 8 of triangle A054521 and d(n) = (1, 2, 2, 3, 2, 4, 2, 4, 3, 4, 2,...).
a(7) = 14 = (1, 1, 1, 1, 1, 1, 0) dot (1, 2, 2, 3, 2, 4, 2) = (d(1) + d(2) + d(3) + d(4) + d(5) + d(6)).
|
|
MAPLE
|
local a, m;
a := 0 ;
for m from 1 to n do
if gcd(m, n) = 1 then
a := a+numtheory[tau](m) ;
end if;
end do:
a ;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|