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-4 of 4 results.

A125881 Numbers k for which k^3+k^2-1 is prime.

Original entry on oeis.org

2, 4, 5, 6, 9, 11, 12, 14, 19, 22, 25, 26, 27, 29, 32, 34, 36, 37, 40, 44, 47, 49, 55, 60, 62, 64, 65, 69, 70, 71, 81, 82, 84, 89, 95, 97, 106, 107, 114, 119, 121, 125, 127, 132, 139, 140, 141, 144, 147, 155, 159, 161, 165, 172, 174, 179, 184, 190, 201, 204
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Comments

Generating polynomial belongs to the family of irreducible polynomials (or trinomials) of the form x^n+x^(n-1)-1.

Links

Crossrefs

Cf. A045546, A125882, A125883, A125884, A125885.

Programs

  • Mathematica
    Do[If[PrimeQ[x^3 + x^2 - 1], Print[x]], {x, 1, 100}]
Select[Range[250], PrimeQ[#^3 + #^2 - 1] &] (* Harvey P. Dale, Jan 20 2015 *)
  • PARI
    isok(n) = isprime(n^3+n^2-1); \\ Michel Marcus, Nov 08 2013

Extensions

More terms from Michel Marcus, Nov 08 2013

A125885 Numbers k for which k^7+k^6-1 is prime.

Original entry on oeis.org

2, 4, 12, 17, 27, 39, 45, 46, 72, 94, 105, 106, 122, 126, 147, 149, 151, 156, 160, 161, 166, 169, 171, 172, 192, 194, 204, 205, 209, 230, 235, 242, 252, 260, 264, 266, 276, 280, 285, 306, 309, 319, 330, 335, 357, 371, 387, 400, 402, 411, 422, 439, 442, 451, 459
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Links

Crossrefs

Cf. A000040, A045546, A125881, A125882, A125883, A125884.

Programs

  • Mathematica
    Do[If[PrimeQ[x^7 + x^6 - 1], Print[x]], {x, 1, 200}]
  • PARI
    is(n)=isprime(n^7+n^6-1) \\ Charles R Greathouse IV, May 15 2013

Extensions

More terms from Amiram Eldar, Mar 18 2020

A125883 Numbers k for which k^5+k^4-1 is prime.

Original entry on oeis.org

2, 4, 7, 9, 11, 13, 16, 17, 18, 26, 27, 29, 31, 33, 34, 38, 39, 40, 43, 47, 50, 57, 59, 65, 69, 70, 76, 81, 89, 90, 92, 93, 95, 103, 107, 109, 126, 128, 129, 138, 140, 148, 162, 167, 179, 182, 183, 192, 197, 206, 209, 211, 221, 223, 226, 228, 229, 230, 234, 240
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Links

Crossrefs

Cf. A000040, A045546, A125881, A125882, A125884, A125885.

Programs

  • Mathematica
    Do[If[PrimeQ[x^5 + x^4 - 1], Print[x]], {x, 1, 200}]
Select[Range[200],PrimeQ[#^5+#^4-1]&] (* Harvey P. Dale, Apr 10 2018 *)
  • PARI
    is(n)=isprime(n^5+n^4-1) \\ Charles R Greathouse IV, May 15 2013

Extensions

More terms from Amiram Eldar, Mar 18 2020

A125884 Numbers k for which k^6+k^5-1 is prime.

Original entry on oeis.org

3, 4, 5, 8, 9, 16, 18, 30, 34, 36, 41, 48, 49, 51, 54, 61, 65, 69, 76, 81, 86, 89, 90, 95, 101, 109, 120, 141, 170, 171, 178, 196, 221, 235, 238, 244, 260, 263, 273, 280, 291, 301, 303, 310, 311, 326, 350, 361, 375, 391, 398, 404, 405, 406, 423, 429, 431, 454, 456, 464, 479, 484, 485, 486, 489, 499
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Links

Crossrefs

Cf. A000040, A045546, A125881, A125882, A125883, A125885.

Programs

  • Maple
    select(t -> isprime(t^6+t^5-1), [$1..1000]); # Robert Israel, Jan 08 2017
  • Mathematica
    Do[If[PrimeQ[x^6 + x^5 - 1], Print[x]], {x, 1, 200}]
  • PARI
    is(n)=isprime(n^6+n^5-1) \\ Charles R Greathouse IV, May 15 2013

Extensions

More terms from Robert Israel, Jan 08 2017
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

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