login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
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. 12
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
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 05:28 EDT 2024. Contains 371264 sequences. (Running on oeis4.)