|
| |
|
|
A072451
|
|
Number of odd terms in the reduced residue system of 2n-1.
|
|
4
| |
|
|
1, 1, 2, 3, 3, 5, 6, 4, 8, 9, 6, 11, 10, 9, 14, 15, 10, 12, 18, 12, 20, 21, 12, 23, 21, 16, 26, 20, 18, 29, 30, 18, 24, 33, 22, 35, 36, 20, 30, 39, 27, 41, 32, 28, 44, 36, 30, 36, 48, 30, 50, 51, 24, 53, 54, 36, 56, 44, 36, 48, 55, 40, 50, 63, 42, 65, 54, 36, 68, 69, 46, 60, 56
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
FORMULA
| a(1)=1 and for n>1 a(n)=Phi(2n-1)/2 - Benoit Cloitre (benoit7848c(AT)orange.fr), Oct 11 2002
It would appear that a(n)=sum{k=0..n, abs(Jacobi(k, 2n-2k+1))}. - Paul Barry (pbarry(AT)wit.ie), Jul 20 2005
|
|
|
EXAMPLE
| n=105: Phi[105]=48 with 24 odd, 24 even; for even n=2k reduced residue system consists only of odd terms, so number of odd terms equals Phi[n].
|
|
|
MATHEMATICA
| gw[x_] := Table[GCD[x, w], {w, 1, x}] rrs[x_] := Flatten[Position[gw[x], 1]] Table[Count[OddQ[rrs[2*w-1]], True], {w, 1, 128}]
|
|
|
CROSSREFS
| Cf. A000010, A037225.
Sequence in context: A046530 A003558 A141419 * A023156 A051599 A064464
Adjacent sequences: A072448 A072449 A072450 * A072452 A072453 A072454
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 19 2002
|
| |
|
|
