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.

A300559 a(n) = n*(n+1)!/2 + 1.

Original entry on oeis.org

1, 2, 7, 37, 241, 1801, 15121, 141121, 1451521, 16329601, 199584001, 2634508801, 37362124801, 566658892801, 9153720576001, 156920924160001, 2845499424768001, 54420176498688001, 1094805903679488001, 23112569077678080001, 510909421717094400001, 11802007641664880640001
Offset: 0

Views

Author

M. F. Hasler, Apr 10 2018

Keywords

Comments

See A301373 and A302859 for the primes: it is remarkable that all of a(1..10) are primes, and only a(11) is the first composite term.

Crossrefs

Inspired by A302859.
Cf. A301373.

Programs

Formula

a(n) = A180119(n) + 1 = A001286(n+1) + 1.
D-finite with recurrence n*a(n+1) = (n+1)*(n+2)*(a(n)-1) + n. - Chai Wah Wu, Apr 11 2018
E.g.f.: exp(x)-1/(x-1)^3*x. - Simon Plouffe, Jun 21 2018

A301373 Numbers k such that (k+1)!*k/2 + 1 is prime.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 19, 24, 251, 374, 953, 1104, 1507, 3390, 4443, 5762
Offset: 1

Views

Author

Daniel Suteu, Apr 03 2018

Keywords

Comments

The associated primes are A300559(a(n)) = A180119(a(n))+1 = A001286(a(n)+1)+1. - M. F. Hasler, Apr 10 2018
Looking for primes of the form p(n) = 1 + n! f(n) with a simple polynomial function f, it appears that the choice f(n) = n(n+1)/2 = A000217 is one of the most successful choices for getting a maximum of primes for n = 1..20. - M. F. Hasler, Apr 14 2018
The PFGW program has been used to certify all the terms up to a(23), using a deterministic test which exploits the factorization of a(n) - 1. - Giovanni Resta, Jun 24 2018

Crossrefs

See A302859 for the actual primes.

Programs

  • Mathematica
    Do[ If[ PrimeQ[n(n +1)!/2 +1], Print@ n], {n, 4000}] (* Robert G. Wilson v, Apr 05 2018 *)
  • PARI
    isok(k) = ispseudoprime((k+1)! * k / 2 + 1);

Extensions

a(21) from Robert G. Wilson v, Apr 05 2018
a(22) from Vaclav Kotesovec, Apr 06 2018
a(23) from Giovanni Resta, Jun 24 2018

A305738 Numbers k such that k!*T(k) - 1 is prime, where T(k) is the k-th triangular number.

Original entry on oeis.org

2, 4, 28, 34, 47, 62, 228, 256, 258, 341, 848, 1362, 1709, 2262, 2692, 7907, 10396, 10501
Offset: 1

Views

Author

Maheswara Rao Valluri, Jun 22 2018

Keywords

Comments

The PFGW program has been used to certify all the terms up to a(18), using a deterministic test which exploits the factorization of a(n) + 1. - Giovanni Resta, Jun 24 2018

Crossrefs

Programs

  • Mathematica
    Do[If[ PrimeQ[n(n +1)!/2 - 1], Print@ n], {n, 3000}]
  • PARI
    isok(n) = ispseudoprime(n(n+1)!/ 2 - 1);

Extensions

a(16)-a(18) from Giovanni Resta, Jun 24 2018
Showing 1-3 of 3 results.