|
Search: id:A055653
|
|
|
| A055653 |
|
Sum of phi(d) [A000010] over all unitary divisors d of n (that is, GCD(d,n/d) = 1). |
|
+0
8
|
|
| 1, 2, 3, 3, 5, 6, 7, 5, 7, 10, 11, 9, 13, 14, 15, 9, 17, 14, 19, 15, 21, 22, 23, 15, 21, 26, 19, 21, 29, 30, 31, 17, 33, 34, 35, 21, 37, 38, 39, 25, 41, 42, 43, 33, 35, 46, 47, 27, 43, 42, 51, 39, 53, 38, 55, 35, 57, 58, 59, 45, 61, 62, 49, 33, 65, 66, 67, 51, 69, 70, 71, 35, 73
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Phi-summation over d-s if runs over all divisors is n, so these values are not exceeding n. Compare also other "Phi-summations" like A053570, A053571, or distinct primes dividing n, etc.
a(n) is also the number of solutions of x^(k+1)=x mod n for some k>=1. - S. R. Finch (Steven.Finch(AT)inria.fr), Apr 11 2006
|
|
REFERENCES
|
V. S. Joshi, Order-free integers (mod m), Number Theory (Mysore, 1981), Lect. Notes in Math. 938, Springer-Verlag, 1982, pp. 93-100.
|
|
LINKS
|
S. R. Finch, Idempotents and Nilpotents Modulo n (arXiv:math.NT/0605019)
|
|
FORMULA
|
If n = Product p_i^e_i, a(n) = Product (1+p_i^e_i-p_i^(e_i-1)). - Vladeta Jovovic (vladeta(AT)Eunet.yu), Apr 19 2001
|
|
EXAMPLE
|
n=1260 has 36 divisors of which 16 are unitary ones: {1,4,5,7,9,20,28,35,36,45,63,140,180,252,315,1260} EulerPhi values of these divisors are: {1,2,4,6,6,8,12,24,12,24,36,48,48,72,144,288} The sum is 735, thus a(1260)=735.
Or, 1260=2^2*3^2*5*7, thus a(1260)=(1+2^2-2)*(1+3^2-3)*(1+5-5^0)*(1+7-7^0)=735.
|
|
MAPLE
|
A055653 := proc(n) local ans, i:ans := 1: for i from 1 to nops(ifactors(n)[ 2 ]) do ans := ans*(1+ifactors(n)[ 2 ][ i ] [ 1 ]^ifactors(n)[ 2 ] [ i ] [ 2 ]-ifactors(n)[ 2 ][ i ] [ 1 ]^(ifactors(n)[ 2 ] [ i ] [ 2 ]-1)): od: RETURN(ans) end:
|
|
CROSSREFS
|
Cf. A000010, A053570, A053571, A000188, A006833, A055654.
Sequence in context: A052274 A085314 A085310 this_sequence A097248 A097247 A097246
Adjacent sequences: A055650 A055651 A055652 this_sequence A055654 A055655 A055656
|
|
KEYWORD
|
nonn,easy,nice,mult
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 07 2000
|
|
|
Search completed in 0.002 seconds
|
