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

A125969 Numbers k for which k^12+k^11-1 is prime.

Original entry on oeis.org

2, 5, 9, 10, 11, 12, 13, 24, 30, 31, 48, 49, 60, 61, 71, 85, 96, 104, 131, 132, 147, 167, 175, 185, 191, 198, 204, 218, 226, 242, 269, 305, 323, 340, 385, 386, 406, 437, 471, 500, 526, 534, 549, 570, 576, 591, 592, 609, 633, 660, 670, 676, 680, 690, 697, 713, 752
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Do[If[PrimeQ[x^12 + x^11 - 1], Print[x]], {x, 1, 400}]
    Select[Range[800],PrimeQ[#^12+#^11-1]&] (* Harvey P. Dale, Nov 08 2022 *)
  • PARI
    is(n)=isprime(n^12+n^11-1) \\ Charles R Greathouse IV, May 15 2013

Extensions

More terms from Amiram Eldar, Mar 18 2020

A125970 Numbers k for which k^13+k^12-1 is prime.

Original entry on oeis.org

38, 47, 51, 91, 102, 139, 150, 203, 207, 212, 218, 225, 237, 245, 263, 269, 278, 280, 283, 297, 300, 302, 303, 337, 357, 367, 370, 382, 404, 405, 408, 411, 425, 452, 456, 472, 496, 509, 514, 595, 605, 619, 626, 630, 670, 693, 707, 714, 735, 771, 773, 799, 854
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Crossrefs

Programs

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

Extensions

More terms from Amiram Eldar, Mar 18 2020

A125971 Numbers k for which k^14+k^13-1 is prime.

Original entry on oeis.org

6, 9, 11, 21, 29, 33, 36, 49, 64, 66, 68, 80, 110, 113, 144, 240, 266, 270, 309, 348, 365, 366, 394, 426, 438, 459, 471, 474, 479, 485, 501, 548, 553, 570, 593, 660, 684, 699, 704, 725, 729, 743, 783, 798, 801, 809, 815, 820, 824, 833, 841, 891, 900, 931, 968
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Crossrefs

Programs

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

Extensions

More terms from Amiram Eldar, Mar 18 2020

A126017 Smallest prime of the form k^n + k^(n-1) - 1.

Original entry on oeis.org

2, 5, 11, 23, 47, 971, 191, 383, 22136835839, 1310719, 2259801991, 6143, 353563778431304822783, 91424858111, 5425784582791, 57395627, 21474836479, 1099999999999999999, 786431, 13508517176729920889, 1818426107493966837974532393806148403199, 153558654482644991
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Comments

Primes arising in A125973.

Examples

			Consider n = 10. k^n + k^(n-1) - 1 evaluates to 1, 1535, 78731, 1310719 for k = 1, ..., 4. Only the last of these numbers, 4^10+4^9-1 = 1310719, is prime, hence a(10) = 1310719.
		

Crossrefs

Programs

  • Mathematica
    Table[k=0;Until[PrimeQ[p=k^n+k^(n-1)-1],k++];p,{n,22}] (* James C. McMahon, Dec 23 2024 *)
  • PARI
    {for(n=1,20,k=1;while(!isprime(a=k^n+k^(n-1)-1),k++);print1(a,","))} \\ Klaus Brockhaus, Dec 17 2006

Extensions

Edited and extended by Klaus Brockhaus, Dec 17 2006
a(21)-a(22) from James C. McMahon, Dec 23 2024
Previous Showing 11-14 of 14 results.