The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A262404 Least k such that the k-th cyclotomic polynomial has n as a coefficient. 6
 4, 1, 165, 595, 1785, 1785, 2805, 3135, 6545, 6545, 10465, 10465, 10465, 10465, 10465, 11305, 11305, 11305, 11305, 11305, 11305, 11305, 15015, 11305, 20615, 17255, 20615, 20615, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS Suzuki proves that a(n) exists for each n. Vaughan proves that there are infinitely many k with a(n) = k and n > exp(exp(log 2 * log k/log log k)). LINKS Robert Israel, Table of n, a(n) for n = 0..1000 Jiro Suzuki, On coefficients of cyclotomic polynomials, Proc. Japan Acad. Ser. A Math. Sci. 63:7 (1987), pp. 279-280. R. C. Vaughan, Bounds for the coefficients of cyclotomic polynomials, Michigan Math. J. 21 (1974), 289-295 (1975). EXAMPLE Phi(165) = x^80 + x^79 + x^78 - x^75 - x^74 - x^73 - x^69 - x^68 - x^67 + x^65 + 2x^64 + 2x^63 + x^62 - x^60 - x^59 - x^58 - x^54 - x^53 - x^52 + x^50 + 2x^49 + 2x^48 + 2x^47 + x^46 - x^44 - x^43 - x^42 - x^41 - x^40 - x^39 - x^38 - x^37 - x^36 + x^34 + 2x^33 + 2x^32 + 2x^31 + x^30 - x^28 - x^27 - x^26 - x^22 - x^21 - x^20 + x^18 + 2x^17 + 2x^16 + x^15 - x^13 - x^12 - x^11 - x^7 - x^6 - x^5 + x^2 + x + 1, with 2 as the coefficient of x^16 (among others), and this is the least k for which 2 appears, so a(2) = 165. MAPLE N:= 40: count:= 0: A:= Array(0..N): A:= 4: for k from 1 while count < N do   S:= select(t -> t::posint and t <= N and A[t] = 0, {coeffs(numtheory:-cyclotomic(k, x), x)}):   if S <> {} then     A[convert(S, list)]:= k;     count:= count + nops(S);   fi od: convert(A, list); # Robert Israel, Dec 23 2018 MATHEMATICA Table[k = 1; While[! MemberQ[CoefficientList[Cyclotomic[k, x], x], n], k++]; k, {n, 0, 9}] (* Michael De Vlieger, Sep 29 2015 *) PROG (PARI) a(n)=my(k, v); while(!setsearch(Set(Vec(polcyclo(k++))), n), ); k CROSSREFS Cf. A013594, A013595, A046887, A262405, A160340, A278567. Sequence in context: A152841 A125083 A094423 * A299522 A300140 A298939 Adjacent sequences:  A262401 A262402 A262403 * A262405 A262406 A262407 KEYWORD nonn,look AUTHOR Charles R Greathouse IV, Sep 21 2015 EXTENSIONS Corrected a(22); more terms from Seiichi Manyama, Dec 22 2018 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 June 13 20:25 EDT 2021. Contains 345009 sequences. (Running on oeis4.)