cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-13 of 13 results.

A223942 Least prime q such that (x^{p_n}-1)/(x-1) is irreducible modulo q, where p_n is the n-th prime.

Original entry on oeis.org

2, 2, 2, 3, 2, 2, 3, 2, 5, 2, 3, 2, 7, 3, 5, 2, 2, 2, 2, 7, 5, 3, 2, 3, 5, 2, 5, 2, 11, 3, 3, 2, 3, 2, 2, 7, 5, 2, 5, 2, 2, 2, 19, 5, 2, 3, 2, 3, 2, 7, 3, 7, 7, 11, 3, 5, 2, 43, 5, 3
Offset: 1

Views

Author

Zhi-Wei Sun, Mar 29 2013

Keywords

Comments

It is well known that (x^{p^n}-1)/(x^{p^{n-1}}-1) is irreducible over the rationals for any prime p and positive integer n.
We have the following "Reciprocity Law": For any positive integer n and primes p > 2 and q, the cyclotomic polynomial (x^{p^n}-1)/(x^{p^{n-1}}-1) is irreducible modulo q if and only if q is a primitive root modulo p^n.
This can be proved as follows: As any monic irreducible polynomial over F_q=Z/qZ of degree k divides x^{q^k}-x in the ring F_q[x], the polynomial f(x)= (x^{p^n}-1)/(x^{p^{n-1}}-1) in F_q[x] has an irreducible factor of degree k < deg f if and only if f(x) is not coprime to x^{q^k}-x for some k < p^n-p^{n-1}. Note that gcd(x^{p^n}-1,x^{q^k-1}-1) = x^{gcd(p^n,q^k-1)}-1. If p^n | q^k-1, then x^{p^n}-1 | x^{q^k}-x and hence f(x) divides x^{q^k}-x; if p^n does not divide q^k-1, then gcd(x^{p^n}-1,x^{q^k-1}-1) divides x^{p^{n-1}}-1 and hence f(x) is coprime to x^{q^k}-x. Thus, f(x) is irreducible modulo q, if and only if p^n | q^k-1 for no 0 < k < p^n-p^{n-1}, i.e., q is a primitive root modulo p^n.
By the above "Reciprocity Law" in the case n=1, we have a(k) = A002233(k) for all k > 1.
Conjecture: a(n) <= sqrt(7*p_n) for all n>0.

Examples

			  a(9)=5 since f(x)=(x^{23}-1)/(x-1) is irreducible modulo 5, but reducible modulo either of 2 and 3, for,
   f(x)==(x^{11}+x^9+x^7+x^6+x^5+x+1)
         *(x^{11}+x^{10}+x^6+x^5+x^4+x^2+1) (mod 2)
and
   f(x)==(x^{11}-x^8-x^6+x^4+x^3-x^2-x-1)
         *(x^{11}+x^{10}+x^9-x^8-x^7+x^5+x^3-1) (mod 3).
		

Crossrefs

Programs

  • Mathematica
    Do[Do[If[IrreduciblePolynomialQ[Sum[x^k,{k,0,Prime[n]-1}],Modulus->Prime[k]]==True,Print[n," ",Prime[k]];Goto[aa]],{k,1,PrimePi[Sqrt[7*Prime[n]]]}];
    Print[n," ",counterexample];Label[aa];Continue,{n,1,100}]

A211873 Numbers b >= 0 such that 2 b^2 + 3 b + 5 is prime.

Original entry on oeis.org

0, 2, 8, 14, 22, 24, 28, 42, 52, 58, 62, 64, 72, 84, 92, 94, 98, 114, 122, 134, 142, 148, 168, 178, 188, 202, 212, 218, 244, 248, 262, 274, 282, 302, 304, 308, 314, 318, 324, 328, 338, 342, 352, 358, 364, 372, 374, 392, 394, 398, 402, 408, 414, 434, 442, 448, 478, 484, 492, 498
Offset: 1

Views

Author

M. F. Hasler, Mar 31 2013

Keywords

Comments

An example of Sun's conjecture in A217788: For a(n)>5, also bases b such [2;3;5] seen as a number written in base b, is prime.

Crossrefs

Cf. A224217.

Programs

  • Magma
    [b: b in [0..500] | IsPrime(2*b^2+3*b+5)]; // Bruno Berselli, Apr 11 2013
  • PARI
    n=#v=[2,3,5];for(b=0,500,ispseudoprime(sum(k=1,n,b^(n-k)*v[k]))&print1(b","))
    

A224487 Least integer b > F(n) such that sum_{k=1}^n F(k)*b^{k-1} is prime, where F = A000045.

Original entry on oeis.org

2, 4, 4, 6, 10, 39, 102, 44, 165, 96, 154, 446, 406, 714, 999, 1634, 2698, 5445, 7630, 11670, 17833, 28758, 46686, 75178, 121782, 197890, 319081, 522734, 840924
Offset: 2

Views

Author

Zhi-Wei Sun, Apr 08 2013

Keywords

Comments

Conjecture: For any n > 1 we have a(n) < F(n+4); moreover, there are infinitely many integers b > F(n) such that sum_{k=1}^n F(k)*b^{k-1} is prime.

Examples

			a(6) = 10 since sum_{k=0}^6 F(k)*10^{k-1} = 853211 is prime but  sum_{k=0}^6 F(k)*9^{k-1} = 507556 is composite.
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_]:=A[n,x]=Sum[Fibonacci[k]*x^(k-1),{k,1,n}]
    Do[Do[Do[If[PrimeQ[A[n,s]]==True,Print[n," ",s];Goto[aa]],{s,Fibonacci[n]+1,Fibonacci[n+4]-1}];
    Print[n," ",counterexample];Label[aa];Continue,{n,2,20}]]
Previous Showing 11-13 of 13 results.