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.

Showing 1-10 of 11 results. Next

A217788 Least integer s > p_n such that sum_{k=1}^n p_k*s^(n-k) (the number [p_1,...,p_n] in base s) is prime, where p_k denotes the k-th prime.

Original entry on oeis.org

3, 4, 8, 9, 16, 15, 72, 37, 30, 54, 54, 54, 80, 91, 78, 204, 182, 110, 286, 183, 158, 231, 228, 105, 252, 189, 198, 119, 178, 252, 280, 152, 164, 423, 170, 185, 190, 249, 1006, 249, 678, 200, 254, 480, 216, 234, 322, 601, 264, 301, 260, 269, 244, 308, 280, 364, 612, 635, 310, 420
Offset: 1

Views

Author

Zhi-Wei Sun, Mar 25 2013

Keywords

Comments

Conjecture: For any integers n >= m > 0, there are infinitely many positive integers s > p_n such that the number sum_{k=m}^n p_k*s^{n-k} (i.e., [p_m,...,p_n] in base s) is prime; moreover the smallest such an integer s (denoted by s(m,n)) does not exceed (n+1)*(m+n+1).
Note that s(1,n) = a(n) and s(4,21) = 546 < (21+1)*(21+4+1) = 572.
A related conjecture of the author states that for each n=2,3,... the polynomial sum_{k=1}^n p_k*x^(n-k) is irreducible modulo some prime. See also the author's comments on A000040.
The conjecture can be further extended as follows: If a_1 < ... < a_n are distinct integers with a_n prime, then there are infinitely many integers b > a_n such that [a_1,a_2,...,a_n] in base b is prime.
For example, [2,3,...,210,211] in base 55272 and[17,19,27,34,38,41] in base 300 are both prime.
See A224197 for a more general conjecture.

Examples

			a(3)=8 since 2*8^2+3*8+5=157 is prime but 2*6^2+3*6+5=95 and 2*7^2+3*7+5=124 are not.
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_]:=A[n,x]=Sum[Prime[k]*x^(n-k),{k,1,n}]; Do[Do[If[PrimeQ[A[n,s]]==True, Print[n," ",s]; Goto[aa]], {s,Prime[n]+1, (n+1)(n+2)}]; Print[n," ",counterexample]; Label[aa]; Continue, {n,1,100}]

Extensions

Edited and added additional information by Zhi-Wei Sun, Mar 31 2013

A220072 Least prime p such that sum_{k=0}^n A005117(k+1)*x^{n-k} is irreducible modulo p.

Original entry on oeis.org

2, 5, 2, 7, 11, 31, 13, 19, 89, 17, 37, 37, 43, 19, 137, 29, 3, 7, 2, 19, 13, 59, 139, 37, 2, 239, 31, 337, 487, 97, 337, 97, 307, 181, 223, 19, 79, 401, 2, 491, 269, 211, 97, 193, 719, 149, 97, 191, 83, 613
Offset: 1

Views

Author

Zhi-Wei Sun, Mar 28 2013

Keywords

Comments

Conjecture: For any n>0, we have a(n) <= n*(n+1), and the Galois group of SF_n(x) = sum_{k=0}^n A005117(k+1)*x^{n-k} over the rationals is isomorphic to the symmetric group S_n.
For another related conjecture, see the author's comment on A005117.

Examples

			a(4)=7 since SF_4(x)=x^4+2x^3+3x^2+5x+6 is irreducible modulo 7 but reducible modulo any of 2, 3, 5. It is easy to check that SF_4(x)==(x-2)*(x^3-x^2+x+2) (mod 5).
		

Crossrefs

A223934 Least prime p such that x^n-x-1 is irreducible modulo p.

Original entry on oeis.org

2, 2, 2, 3, 2, 2, 7, 2, 17, 7, 5, 3, 3, 2, 109, 3, 101, 19, 229, 5, 2, 23, 23, 17, 107, 269, 2, 29, 2, 31, 37, 197, 107, 73, 37, 7, 59, 233, 3, 3, 7, 43, 43, 5, 2, 47, 269, 61, 43, 3, 53, 13, 3, 643, 13, 5, 151, 59, 2
Offset: 2

Views

Author

Zhi-Wei Sun, Mar 29 2013

Keywords

Comments

Conjecture: a(n) < n*(n+3)/2 for all n>1.
Note that a(20) = 229 < 20*(20+3)/2 = 230.
The conjecture was motivated by E. S. Selmer's result that for any n>1 the polynomial x^n-x-1 is irreducible over the field of rational numbers.
We also conjecture that for every n=2,3,... there is a positive integer z not exceeding the (2n-2)-th prime such that z^n-z-1 is prime, and the Galois group of x^n-x-1 over the field of rationals is isomorphic to the symmetric group S_n.

Examples

			a(8)=7 since f(x)=x^8-x-1 is irreducible modulo 7 but reducible modulo any of 2, 3, 5, for,
   f(x)==(x^2+x+1)*(x^6+x^5+x^3+x^2+1) (mod 2),
   f(x)==(x^3+x^2-x+1)*(x^5-x^4-x^3-x^2+x-1) (mod 3),
   f(x)==(x^2-2x-2)*(x^6+2x^5+x^4+x^3-x^2-2) (mod 5).
		

Crossrefs

Cf. A002475 (n such that x^n-x-1 is irreducible over GF(2)).
Cf. A223938 (n such that x^n-x-1 is irreducible over GF(3)).

Programs

  • Mathematica
    Do[Do[If[IrreduciblePolynomialQ[x^n-x-1,Modulus->Prime[k]]==True,Print[n," ",Prime[k]];Goto[aa]],{k,1,PrimePi[n*(n+3)/2-1]}];
    Print[n," ",counterexample];Label[aa];Continue,{n,2,100}]

A224197 Least b > p_n^2 such that [p_1^2,p_2^2,...,p_n^2] in base b is prime, where p_j denotes the j-th prime.

Original entry on oeis.org

11, 26, 51, 124, 177, 312, 394, 668, 843, 978, 1398, 1730, 1911, 2242, 2859, 3496, 3724, 4532, 5073, 5358, 6269, 6906, 7927, 9422, 10205, 10766, 11522, 12060, 12923, 16142, 17220, 18788, 19409, 22806, 22965, 25562, 26570, 28038, 30636
Offset: 2

Views

Author

Zhi-Wei Sun, Apr 01 2013

Keywords

Comments

Conjecture: (i) For any positive integer k and distinct positive integers a_1< a_2 < ... < a_n with a_n prime, there are infinitely many integers b > a_n^k such that [a_1^k,a_2^k,...,a_n^k] in base b is prime.
(ii) For positive integers k, m and n>m, let s_k(m,n) denote the smallest integer b > p_n^k such that [p_m^k,p_{m+1}^k,...,p_n^k] in base b is prime. Then we have the inequality s_k(m,n) <= (n+1)^k*(m+n+1)^k.
This is the k-th power version of the author's conjecture related to A217788. Note that s(m,n) defined there is identical with s_1(m,n). It seems that s_2(m,n) < p_{n+1}*p_{m+n+1}.
For example, [2^2,6^2,9^2,20^2,29^2] in base 900 and [37^2,38^2,60^2,90^2,101^2] in base 10268 are both prime. Also, s_3(1,15) = 103960 and s_5(3,5) = 161098.
Note that for any integer b>13^2 the number [2^2,5,6,156,13^2] in base b is composite since
4x^4+5x^3+6x^2+156x+169 = (4x+13)*(x^3-2x^2+8x+13).
Although 1, 2, 3, 113, 115 are pairwise relatively prime, [1,2,3,113,115] in any base b>115 is composite since x^4+2x^3+3x^2+113x+115 = (x+5)*(x^3-3x^2+18x+23).

Examples

			a(35) = s_2(1,35) = 22806 since [p_1^2,p_2^2,...,p_{35}^2] in base 22806 is prime. Note that p_{36}^2 = 22801 < 22806 < p_{35}*p_{37} = 23393 < p_{36}*p_{37} = 23707.
a(287) = s_2(1,287) = 3519434 since [p_1^2,p_2^2,...,p_{287}^2] in base 3519434 is prime. Note that p_{287}*p_{289} = 3519367 < 3519434 < p_{288}^2 = 3523129 < p_{288}*p_{289} = 3526883.
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_]:=A[n,x]=Sum[Prime[k]^2*x^(n-k),{k,1,n}]
    Do[Do[Do[If[PrimeQ[A[n,b]]==True,Print[n," ",b];Goto[aa]],{b,Prime[n]^2+1,Prime[n+1]Prime[n+2]-1}];
    Print[n," ",counterexample];Label[aa];Continue,{n,2,100}]]

A224210 Least prime p such that sum_{k=0}^n (k+1)^2*x^{n-k} is irreducible modulo p.

Original entry on oeis.org

2, 11, 7, 17, 11, 3, 7, 97, 3, 89, 31, 113, 43, 7, 23, 23, 17, 67, 23, 109, 17, 277, 103, 283, 59, 101, 157, 127, 29, 79, 23, 223, 73, 269, 433, 137, 5, 659, 109, 401, 419, 7, 373, 131, 89, 269, 149, 61, 829, 881
Offset: 1

Views

Author

Zhi-Wei Sun, Apr 01 2013

Keywords

Comments

Conjecture: a(n) does not exceed the (4n-3)-th prime for each n>0. Moreover, for any integers m>1 and n>0 the polynomial sum_{k=0}^n (k+1)^m*x^{n-k} is irreducible modulo some prime, and its Galois group over the rationals is isomorphic to the symmetric group S_n. Also, for m,n=2,3,... there are infinitely many integers b > n^m such that [n^m,...,2^m,1^m] in base b is prime.
We have a similar conjecture with the above (k+1)^m replaced by (2k+1)^m.

Examples

			a(3) = 7 since f(x) = x^3+4x^2+9x+16 is irreducible modulo 7 but reducible modulo any of 2, 3, 5. Note that
   f(x)==x*(x-1)^2 (mod 2),  f(x)==(x-1)*(x^2-x-1) (mod 3)
and
          f(x)==(x+1)*(x-1)^2 (mod 5).
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_]:=Sum[(k+1)^2*x^(n-k),{k,0,n}]
    Do[Do[If[IrreduciblePolynomialQ[A[n,x],Modulus->Prime[k]]==True,Print[n," ",Prime[k]];Goto[aa]],{k,1,Prime[4n-3]}];
    Print[n," ",counterexample];Label[aa];Continue,{n,1,100}]

A224417 Least prime p such that sum_{k=0}^n B_k*x^{n-k} is irreducible modulo p, where B_k refers to the Bell number A000110(k).

Original entry on oeis.org

2, 3, 2, 11, 3, 2, 193, 113, 2, 29, 71, 167, 19, 3, 7, 13, 199, 5, 101, 59, 13, 41, 3, 359, 7, 11, 2, 31, 197, 139, 3, 59, 2, 139, 83, 37, 23, 193, 587, 199, 67, 47, 401, 41, 571, 73, 1063, 229, 1163, 47, 53, 239, 347, 223, 577, 499, 271, 269, 11, 179
Offset: 1

Views

Author

Zhi-Wei Sun, Apr 06 2013

Keywords

Comments

Conjecture: a(n) < 4n^2-1 for all n>0.

Examples

			a(5) = 3 since the polynomial sum_{k=0}^5 B_5*x^{5-k} = x^5+x^4+2*x^3+5*x^2+15*x+52 is irreducible modulo 3 but reducible modulo 2.
Note also that a(7) = 193 < 4*7^2-1 = 195.
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_]:=A[n,x]=Sum[BellB[k]*x^(n-k),{k,0,n}]
    Do[Do[If[IrreduciblePolynomialQ[A[n,x],Modulus->Prime[k]]==True,Print[n," ",Prime[k]];Goto[aa]],{k,1,PrimePi[4n^2-2]}];
    Print[n," ",counterexample];Label[aa];Continue,{n,1,100}]

A224480 Least prime q such that x^n + sum_{k=1}^n p_k*x^{n-k} is irreducible modulo q, where p_k denotes the k-th prime.

Original entry on oeis.org

2, 11, 2, 2, 2, 2, 2, 53, 13, 3, 5, 2, 2, 2, 2, 421, 29, 19, 7, 2, 29, 37, 2, 743, 41, 23, 13, 47, 5, 2, 269, 139, 211, 31, 73, 307, 2, 2, 5, 89, 23, 839, 181, 379, 173, 89, 2, 353, 101, 307, 3, 29, 389, 2, 863, 71, 503, 619, 193, 2
Offset: 1

Views

Author

Zhi-Wei Sun, Apr 07 2013

Keywords

Comments

Conjecture: a(n) <= (n+4)*(n+5)+1 for all n>0.

Examples

			a(10) = 3 since P(x) = x^{10} + 2*x^9 + 3*x^8 + 5*x^7 + 7*x^6
+ 11*x^5 + 13*x^4 + 17*x^3 + 19*x^2 + 23*x + 29 is irreducible modulo 3, but reducible modulo 2, for,
    P(x)==(x+1)^2*(x^3+x+1)*(x^5+x^3+1) (mod 2).
Note also that a(16) = 421 = (16+4)*(16+5)+1.
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_]:=A[n,x]=Sum[x^n+Prime[k]*x^(n-k),{k,1,n}]
    Do[Do[If[IrreduciblePolynomialQ[A[n,x],Modulus->Prime[k]]==True,Print[n," ",Prime[k]];Goto[aa]],{k,1,PrimePi[n^2+9n+21]}];
    Print[n," ",counterexample];Label[aa];Continue,{n,1,100}]

A220947 Least prime p such that sum_{k=0}^n F(k+1)*x^{n-k} is irreducible modulo p, where F(j) denotes the Fibonacci number A000045(j).

Original entry on oeis.org

2, 3, 2, 11, 3, 2, 5, 3, 2, 11, 5, 41, 181, 31, 73, 89, 5, 7, 71, 11, 29, 5, 193, 41, 89, 61, 2, 43, 3, 31, 13, 191, 2, 61, 103, 97, 103, 47, 383, 367, 89, 17, 191, 1627, 193, 163, 5, 337, 349, 23, 149, 193, 199, 233, 173, 617, 593, 59, 113, 151
Offset: 1

Views

Author

Zhi-Wei Sun, Apr 07 2013

Keywords

Comments

Conjecture: a(n) <= n^2+12 for all n>0.
Such a phenomenon happens quite often. In fact, for many interesting integer sequences a(k) (k=1,2,3,...), each of the polynomials x^n + sum_{k=0}^n a(k)*x^{n-k} (n>0) is irreducible modulo some prime not exceeding a*n^2+b*n+c, where a, b, c are suitable nonnegative constants.

Examples

			a(2) = 3 since x^2+x+2 is irreducible modulo 3 but reducible modulo 2.
Note also that a(13) = 181 = 13^2+12.
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_]:=A[n,x]=Sum[Fibonacci[k+1]*x^(n-k),{k,0,n}]
    Do[Do[If[IrreduciblePolynomialQ[A[n,x],Modulus->Prime[k]]==True,Print[n," ",Prime[k]];Goto[aa]],{k,1,PrimePi[n^2+12]}];
    Print[n," ",counterexample];Label[aa];Continue,{n,1,100}]

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}]

A220949 Least prime p such that sum_{k=0}^n (2k+1)*x^(n-k) is irreducible modulo p.

Original entry on oeis.org

2, 2, 3, 2, 5, 3, 71, 23, 11, 2, 5, 2, 13, 23, 47, 47, 269, 2, 7, 19, 53, 101, 7, 53, 113, 11, 23, 2, 43, 347, 53, 283, 191, 17, 41, 2, 239, 677, 3, 281, 37, 641, 613, 41, 17, 269, 181, 137, 383, 41, 127, 2, 71, 739, 71, 353, 59, 2, 83, 2
Offset: 1

Views

Author

Zhi-Wei Sun, Apr 07 2013

Keywords

Comments

Conjecture: a(n) <= n^2+22 for all n>0.
We have similar conjectures with 2k+1 in the definition replaced by (2k+1)^m (m=2,3,...).

Examples

			a(5) = 5 since f(x) = x^5+3*x^4+5*x^3+7*x^2+9*x+11 is irreducible modulo 5, but f(x)==(x+1)*(x^2+x+1)^2 (mod 2) and f(x)==(x+1)^4*(x-1) (mod 3).
Note also that a(7) = 71 = 7^2+22.
		

Crossrefs

Programs

  • Mathematica
    A[n_,x_] := A[n,x] = Sum[(2k+1)*x^(n-k), {k,0,n}]; Do[Do[If[IrreduciblePolynomialQ[A[n,x], Modulus->Prime[k]] == True, Print[n," ",Prime[k]]; Goto[aa]], {k,1,PrimePi[n^2+22]}]; Print[n," ",counterexample]; Label[aa]; Continue,{n,1,100}]
Showing 1-10 of 11 results. Next