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

A285790 Primes equal to a hexagonal number plus 1.

Original entry on oeis.org

2, 7, 29, 67, 191, 277, 379, 631, 947, 1129, 1327, 2017, 2557, 2851, 4561, 4951, 5779, 6217, 8647, 9181, 12721, 13367, 14029, 15401, 16111, 17579, 20707, 21529, 22367, 24091, 24977, 31627, 36857, 37951, 42487, 43661, 44851, 47279, 53629, 58997, 64621, 66067
Offset: 1

Views

Author

Colin Barker, Apr 26 2017

Keywords

Comments

Apart from the leading 2 the same as A176616. - R. J. Mathar, Apr 27 2017
Primes in A130883. - Omar E. Pol, Apr 27 2017

Links

Crossrefs

Cf. A000040, A000384, A002496, A055469, A285789, A285791, A176616, A285792.

Programs

  • Mathematica
    Select[PolygonalNumber[6,Range[200]]+1,PrimeQ] (* Harvey P. Dale, Jun 16 2022 *)
  • PARI
    pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
maxk=300; L=List(); for(k=1, maxk, if(isprime(p=pg(6, k) + 1), listput(L, p))); Vec(L)

A285792 Primes equal to an octagonal number plus 1.

Original entry on oeis.org

2, 41, 97, 281, 409, 937, 1409, 2297, 4721, 5209, 6257, 8009, 8641, 12161, 14561, 18097, 21001, 23057, 24121, 26321, 27457, 37409, 42961, 50441, 52009, 55217, 56857, 60209, 70841, 76481, 90481, 139537, 147409, 152777, 161009, 169457, 172321, 227977, 238009
Offset: 1

Views

Author

Colin Barker, Apr 26 2017

Keywords

Comments

Primes in A056105. - Omar E. Pol, Apr 26 2017

Links

Crossrefs

Cf. A000040, A000567, A002496, A055469, A285789, A285790, A285791.

Programs

  • Mathematica
    Select[PolygonalNumber[8,Range[300]]+1,PrimeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 22 2017 *)
  • PARI
    pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
maxk=300; L=List(); for(k=1, maxk, if(isprime(p=pg(8, k) + 1), listput(L, p))); Vec(L)

A285789 Primes equal to a pentagonal number plus 1.

Original entry on oeis.org

2, 13, 23, 71, 211, 331, 853, 1163, 1427, 2381, 2753, 3433, 3877, 5923, 6113, 6701, 7741, 8627, 9323, 11311, 12377, 14653, 14951, 17443, 18427, 23003, 27271, 31033, 32341, 32783, 34127, 38321, 43777, 52361, 55201, 56941, 57527, 62323, 64171, 64793, 69877
Offset: 1

Views

Author

Colin Barker, Apr 26 2017

Keywords

Links

Crossrefs

Cf. A000040, A000326, A002496, A055469, A285790, A285791, A285792.

Programs

  • Mathematica
    Select[PolygonalNumber[5,Range[300]]+1,PrimeQ] (* Harvey P. Dale, Dec 04 2024 *)
  • PARI
    pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
maxk=300; L=List(); for(k=1, maxk, if(isprime(p=pg(5, k) + 1), listput(L, p))); Vec(L)
Showing 1-3 of 3 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.