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

A272302 Nonnegative numbers n such that abs(3n^3 - 183n^2 + 3318n - 18757) is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 48, 49, 51, 53, 56, 57, 59, 60, 62, 63, 65, 66, 69, 70, 74, 79, 80, 81, 82, 85
Offset: 1

Views

Author

Robert Price, Apr 28 2016

Keywords

Comments

47 is the smallest number not in this sequence.

Examples

			4 is in this sequence since abs(3*4^3 - 183*4^2 + 3318*4 - 18757) = abs(192-2928+13272-18757) = 8221 is prime.

Links

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266, A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401.

Programs

  • Mathematica
    Select[Range[0, 100], PrimeQ[3#^3 - 183#^2 + 3318# - 18757 ] &]
  • PARI
    is(n)=isprime(abs(3*n^2-183*n^2+3318*n-18757)) \\ Charles R Greathouse IV, Feb 17 2017

A272437 Nonnegative numbers n such that abs(-66n^3 + 3845n^2 - 60897n + 251831) is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 47, 49, 51, 54, 58, 65, 68, 70, 75, 76, 77, 82, 88, 89, 97, 99, 101, 102, 104, 109
Offset: 1

Views

Author

Robert Price, Apr 29 2016

Keywords

Comments

46 is the smallest number not in this sequence.

Examples

			4 is in this sequence since abs(-66*4^3 + 3845*4^2 - 60897*4 + 251831) = abs(-4224+61520-243588+251831) = 65539 is prime.

Links

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266, A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401, A272438.

Programs

  • Mathematica
    Select[Range[0, 109], PrimeQ[-66#^3 + 3845#^2 - 60897# + 251831] &]
  • PARI
    is(n)=isprime(abs(66*n^3-3845*n^2+60897*n-251831)) \\ Charles R Greathouse IV, Feb 20 2017

A272443 Nonnegative numbers n such that abs(n^5 - 99n^4 + 3588n^3 - 56822n^2 + 348272n - 286397) is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 48, 50, 51, 53, 57, 58, 59, 64, 67, 70, 75, 79, 80, 81, 89, 91, 92, 93, 96, 99
Offset: 1

Views

Author

Robert Price, Apr 29 2016

Keywords

Comments

47 is the smallest number not in this sequence.

Examples

			4 is in this sequence since abs(4^5 - 99*4^4 + 3588*4^3 - 56822*4^2 + 348272*4 - 286397) = abs(1024-25344+229632-909152+1393088-286397) = 402851 is prime.

Links

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.
Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401, A272438, A272444.

Programs

  • Mathematica
    Select[Range[0, 100], PrimeQ[#^5 - 99#^4 + 3588#^3 - 56822#^2 + 348272# - 286397] &]
  • PARI
    lista(nn) = for(n=0, nn, if(isprime(abs(n^5-99*n^4+3588*n^3-56822*n^2+348272*n-286397)), print1(n, ", "))); \\ Altug Alkan, Apr 29 2016

A268200 Nonnegative numbers n such that abs(n^4 - 97n^3 + 3294n^2 - 45458n + 213589) is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 62, 65, 67, 70, 72, 73, 74, 75, 84, 85, 86, 90, 92
Offset: 1

Views

Author

Robert Price, Apr 30 2016

Keywords

Comments

50 is the smallest number not in this sequence.

Examples

			4 is in this sequence since abs(4^4 - 97*4^3 + 3294*4^2 - 45458*4 + 213589) = abs(256-6208+52704-181832+213589) = 78509 is prime.

Links

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266, A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401, A272438, A272444, A272410.

Programs

  • Mathematica
    Select[Range[0, 100], PrimeQ[#^4 - 97#^3 + 3294#^2 - 45458# + 213589] &]
  • PARI
    is(n)=isprime(abs(n^4-97*n^3+3294*n^2-45458*n+213589)) \\ Charles R Greathouse IV, Feb 20 2017

A272554 Nonnegative numbers n such that abs(1/(36)(n^6 - 126n^5 + 6217n^4 - 153066n^3 + 1987786n^2 - 13055316n + 34747236)) is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 57, 61, 62, 63, 64, 65, 66, 68, 69, 70, 73, 78
Offset: 1

Views

Author

Robert Price, May 02 2016

Keywords

Comments

55 is the smallest number not in this sequence.

Examples

			4 is in this sequence since abs(1/(36)(4^6 - 126*4^5 + 6217*4^4 - 153066*4^3 + 1987786*4^2 - 13055316*4 + 34747236)) = abs((4096 - 129024 + 1591552 - 9796224 + 31804576 - 5222126 + 34747236)/36) = 166693 is prime.

Links

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.
Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401, A272438, A272444, A272410, A272555.

Programs

  • Mathematica
    Select[Range[0, 100], PrimeQ[1/(36)(#^6 - 126#^5 + 6217#^4 - 153066#^3 + 1987786#^2 - 13055316# + 34747236)] &]

A247163 Nonnegative numbers n such that abs(1/4 (n^5 - 133n^4 + 6729n^3 - 158379n^2 + 1720294n - 6823316)) is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 59, 60, 61, 64, 67, 68, 69, 74, 75, 76
Offset: 1

Views

Author

Robert Price, May 04 2016

Keywords

Comments

62 is the smallest number not in this sequence.

Examples

			4 is in this sequence since abs(1/4 (n^5 - 133n^4 + 6729n^3 - 158379n^2 + 1720294n - 6823316)) = abs((1024 - 34048 + 430656 - 2534064 + 6881176 - 6823316)/4) = 519643 is prime.

Links

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.
Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401, A272438, A272444, A272410, A272555, A272710.

Programs

  • Mathematica
    Select[Range[0, 100], PrimeQ[1/4 (#^5 - 133#^4 + 6729#^3 - 158379#^2 + 1720294# - 6823316)] &]

A272813 Nonnegative numbers n such that n^2 - 79n + 1601 is prime.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66
Offset: 1

Views

Author

Robert Price, May 06 2016

Keywords

Comments

80 is the smallest number not in this sequence.
See A005846 for the corresponding primes.

Examples

			4 is in this sequence since 4^2 - 79*4 + 1601 = 16-316+1601 = 1301 is prime.

Links

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.
Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401, A272438, A272444, A272410, A272555, A272710, A005846.

Programs

  • Mathematica
    Select[Range[0, 100], PrimeQ[#^2 - 79# + 1601 ] &]
  • PARI
    lista(nn) = for(n=0, nn, if(isprime(n^2-79*n+1601), print1(n, ", "))); \\ Altug Alkan, May 06 2016
Showing 1-7 of 7 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.