OFFSET
1,4
COMMENTS
An isolated totative, k, of n is a positive integer which is coprime to n, is <= n and is such that neither (k-1) nor (k+1) are coprime to n.
a(2n) = phi(2n)*n, where phi(n) = A000010(n).
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
FORMULA
a(n) = (n/2) * A132952(n). - Robert G. Wilson v, Sep 13 2007
EXAMPLE
The positive integers which are <= 15 and are coprime to 15 are 1,2,4,7,8,11,13,14. Of these, 1 and 2 are adjacent, 7 and 8 are adjacent and 13 and 14 are adjacent. So the isolated totatives of 15 are 4 and 11. Therefore a(15) = 4 + 11 = 15.
MATHEMATICA
fQ[k_, n_] := GCD[k, n] == 1 && GCD[k - 1, n] > 1 && GCD[k + 1, n] > 1; f[n_] := Plus @@ Select[ Rest[ Range@n - 1], fQ[ #, n] &]; Array[f, 69] (* Robert G. Wilson v *)
PROG
(PARI) A132953(n) = { my(s=0, pg=0, g=1, ng); for(k=1, n-1, if((1!=(ng=gcd(n, k+1)))&&(1==g)&&(1!=pg), s += k); pg = g; g = ng); (s); }; \\ Antti Karttunen, Nov 01 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Sep 05 2007
EXTENSIONS
Edited and extended by Robert G. Wilson v, Sep 13 2007
STATUS
approved