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!)
A206075 Nonprimes in A206074 (a coding of irreducible polynomials). 6
1, 25, 55, 69, 77, 81, 87, 91, 115, 117, 121, 143, 145, 169, 171, 185, 203, 205, 209, 213, 247, 253, 261, 265, 275, 285, 289, 295, 299, 301, 305, 319, 321, 323, 327, 329, 333, 339, 351, 355, 357, 361, 369, 375, 377, 391, 395, 405, 407, 415, 425, 437 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
Under the coding of irreducible polynomials over {0,1} which is given at A206074, the polynomials matching the first five terms of A206075 are indicated here:
1 .... 1
25 ... x^4 + x^3 + 1
55 ... x^5 + x^4 + x^2 + x + 1
69 ... x^6 + x^2 + 1
77 ... x^6 + x^3 + x^2 + 1
MATHEMATICA
t = Table[IntegerDigits[n, 2], {n, 1, 1500}];
b[n_] := Reverse[Table[x^k, {k, 0, n}]]
p[n_, x_] := t[[n]].b[-1 + Length[t[[n]]]]
u = {1}; Do[n++; If[IrreduciblePolynomialQ[p[n, x]], AppendTo[u, n]], {n, 1000}]
nonprimes = Complement[Range[800], Table[Prime[n], {n, 1, 800}]];
Intersection[u, nonprimes] (* A206075 *)
PROG
(PARI) is(n)=n==1 || (polisirreducible( Pol(binary(n)) ) && !isprime(n)) \\ Charles R Greathouse IV, May 14 2015
CROSSREFS
Cf. A206074.
Sequence in context: A157269 A371129 A186892 * A276448 A176275 A108166
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 03 2012
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 June 23 03:01 EDT 2024. Contains 373629 sequences. (Running on oeis4.)