|
| |
|
|
A065152
|
|
Cototient[totient[n]]-totient[cototient[n]].
|
|
2
| |
|
|
0, -1, 0, 0, 1, -1, 3, 0, 2, 0, 5, -2, 7, 0, -2, 0, 7, 0, 11, 0, 2, 2, 11, -4, 8, 2, 6, 0, 15, -6, 21, 0, 0, 2, 6, 0, 23, 4, 8, 0, 23, 0, 29, 4, 4, 4, 23, -8, 24, 4, -2, 4, 27, 0, 16, 0, 12, 8, 29, -12, 43, 6, 6, 0, 16, -10, 45, 4, 4, -6, 45, 0, 47, 6, 0, 8, 28, -2, 53, 0, 18, 12, 41, 0, 20, 10, 2, 8, 47, -4, 30, 8, 24, 8, 26, -16, 63, 6, 20, 8, 59, -8
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,7
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
EXAMPLE
| m=100, Phi[100]=40, 100-Phi[100]=60=cototient[100], cototient[40]=40-16=24, totient[60]=16 a[100]=24-16=8
|
|
|
MATHEMATICA
| Cototient[n_] := n - EulerPhi@n; f[n_] := Cototient@ EulerPhi@ n - EulerPhi@ Cototient@ n; Array[f, 102] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 24 2010]
|
|
|
PROG
| (PARI) { for (n = 1, 1000, t=eulerphi(n); c=n - t; if (n>1, a=t - eulerphi(t) - eulerphi(c), a=0); write("b065152.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Oct 13 2009]
|
|
|
CROSSREFS
| a(n)= A000010[A051953(n)]-A051953[A000010(n)].
Sequence in context: A061064 A016597 A128114 * A171759 A073538 A072780
Adjacent sequences: A065149 A065150 A065151 * A065153 A065154 A065155
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Oct 19 2001
|
| |
|
|
