A066498 Numbers k such that 3 divides phi(k).
7, 9, 13, 14, 18, 19, 21, 26, 27, 28, 31, 35, 36, 37, 38, 39, 42, 43, 45, 49, 52, 54, 56, 57, 61, 62, 63, 65, 67, 70, 72, 73, 74, 76, 77, 78, 79, 81, 84, 86, 90, 91, 93, 95, 97, 98, 99, 103, 104, 105, 108, 109, 111, 112, 114, 117, 119, 122, 124, 126, 127, 129, 130, 133
Offset: 1
Keywords
Examples
If n < 7 then x^3 = 1 (mod n) has no solution 1 < x < n, but {2,4} are solutions to x^3 == 1 (mod 7), hence a(1) = 7.
Links
- Harry J. Smith, Table of n, a(n) for n=1..1000
- Robert E. Dressler, A property of the phi and sigma_j functions, Compositio Mathematica, Vol. 31, No. 2 (1975), pp. 115-118.
Crossrefs
Programs
-
Mathematica
Select[Range[150], Divisible[EulerPhi[#], 3]&] (* Harvey P. Dale, Jan 12 2011 *)
-
PARI
isok(k)={ eulerphi(k)%3 == 0 } \\ Harry J. Smith, Feb 18 2010
Extensions
Simpler definition from Yuval Dekel (dekelyuval(AT)hotmail.com), Oct 25 2003
Corrected and extended by Ray Chandler, Nov 05 2003
Comments