This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A079695 Values never taken by phi(j)/2 for any j: a(n) = A005277(n)/2. 7
 7, 13, 17, 19, 25, 31, 34, 37, 38, 43, 45, 47, 49, 57, 59, 61, 62, 67, 71, 73, 76, 77, 79, 85, 87, 91, 93, 94, 97, 101, 103, 107, 109, 115, 117, 118, 121, 122, 123, 124, 127, 129, 133, 137, 139, 142, 143, 145, 149, 151, 152, 154, 157, 159 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Because the degree of the minimal polynomial of cos(2*Pi/k) is phi(k)/2, the degree can never be a number in this sequence. - Artur Jasinski, Feb 23 2011 LINKS Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 EXAMPLE A005277(1)=14, therefore a(1)=7. MATHEMATICA phiQ[m_] := Select[Range[m + 1, 2 m*Product[(1 - 1/(k*Log[k]))^(-1), {k, 2, DivisorSigma[0, m]}]], EulerPhi[#] == m &, 1] != {}; t = Select[Range[2, 320], phiQ]/2; Select[Range@ Max@ t, !MemberQ[t, #] &] (* Michael De Vlieger, Mar 22 2015, after Jean-François Alcover at A002180 *) PROG (PARI) is(n)=!istotient(2*n) \\ Charles R Greathouse IV, Mar 23 2015 (Haskell) import Data.List.Ordered (minus) a079695 n = a079695_list !! (n-1) a079695_list = [1..] `minus` a002180_list -- Reinhard Zumkeller, Nov 22 2015 CROSSREFS Cf. A005277 (nontotients), A002180 (complementary sequence). Sequence in context: A067656 A166602 A079697 * A079698 A237609 A038906 Adjacent sequences:  A079692 A079693 A079694 * A079696 A079697 A079698 KEYWORD nonn AUTHOR Jon Perry, Jan 31 2003 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 15 04:33 EDT 2019. Contains 328026 sequences. (Running on oeis4.)