login
This site is supported by donations to The OEIS Foundation.

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A206715 Numbers matched to polynomials divisible by x^2+1. 2
5, 10, 15, 20, 30, 40, 45, 60, 65, 75, 80, 85, 90, 95, 105, 120, 125, 130, 135, 150, 160, 165, 170, 175, 180, 190, 195, 210, 215, 225, 235, 240, 245, 250, 255, 260, 270, 300, 320, 325, 330, 335, 340, 350, 360, 365, 380, 390, 420, 430, 450, 455, 470 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Is this a duplicate of A131853?

The polynomials having coefficients in {0,1} are enumerated as in A206074.  The sequence A206715 shows the numbers of those satisfying p(n,i)=0.

LINKS

Table of n, a(n) for n=1..53.

MATHEMATICA

t = Table[IntegerDigits[n, 2], {n, 1, 3000}];

b[n_] := Reverse[Table[x^k, {k, 0, n}]]

p[n_, x_] := p[n, x] = t[[n]].b[-1 + Length[t[[n]]]]

TableForm[Table[{n, p[n, x], Factor[p[n, x]]},

  {n, 1, 16}]]

u = {}; Do[n++; If[(p[n, x] /. x -> I) == 0,

  AppendTo[u, n]], {n, 800}]

u    (* A206715 *)

u/5  (* A206716 *)

CROSSREFS

Cf. A131853, A206074, A206716.

Sequence in context: A045682 A045775 A178892 * A131853 A115817 A070004

Adjacent sequences:  A206712 A206713 A206714 * A206716 A206717 A206718

KEYWORD

nonn

AUTHOR

Clark Kimberling, Feb 11 2012

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified April 17 06:40 EDT 2014. Contains 240633 sequences.