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.

A139151 a(n) = (n!+4)/4.

Original entry on oeis.org

7, 31, 181, 1261, 10081, 90721, 907201, 9979201, 119750401, 1556755201, 21794572801, 326918592001, 5230697472001, 88921857024001, 1600593426432001, 30411275102208001, 608225502044160001, 12772735542927360001
Offset: 4

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

Maximal solution for x such that x^2-y^2 = n! (because ((n! + 4)/4)^2 - ((n! - 4)/4)^2 = n! ). - Artur Jasinski, Mar 31 2012

Crossrefs

Programs

A139149 a(n) = (n!+2)/2.

Original entry on oeis.org

2, 4, 13, 61, 361, 2521, 20161, 181441, 1814401, 19958401, 239500801, 3113510401, 43589145601, 653837184001, 10461394944001, 177843714048001, 3201186852864001, 60822550204416001, 1216451004088320001, 25545471085854720001, 562000363888803840001
Offset: 2

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

Also the number of (not necessarily maximal) cliques in the (n-1)-(weak) Bruhat graph. - Eric W. Weisstein, Jul 29 2018

Examples

			(1!+2)/2 = 3/2 is not an integer.
a(2) = (2!+2)/2 = 2.
		

Crossrefs

a(n) = (n!+m)/m: A038507 (m=1), this sequence (m=2), A139150 (m=3), A139151 (m=4), A139152 (m=5), A139153 (m=6), A139154 (m=7), A139155 (m=8), A139156 (m=9), A139157 (m=10).
Offsets for above sequences are Kempner numbers A002034.
For smallest number of the form (m!+n)/n see A139148.

Programs

A089131 Primes of the form (k! + 3)/3.

Original entry on oeis.org

3, 41, 241, 13441, 13305601, 118562476032001, 8617338912961658880001, 123997775596633739155999816050278400000001
Offset: 1

Views

Author

Cino Hilliard, Dec 05 2003

Keywords

Comments

The next term is too large to include.

Crossrefs

Programs

  • Magma
    [a: n in [1..50] | IsPrime(a) where a is (Factorial(n)+3) div 3]; // Vincenzo Librandi, Dec 12 2011
  • Mathematica
    Select[Table[(n!+3)/3,{n,0,50}],PrimeQ] (* Vincenzo Librandi, Dec 12 2011 *)
  • PARI
    nfactp2d2(n) = { for(x=1,n, y=floor((x!+ 3)/3); if(isprime(y),print1(y",")) ) }
    

Formula

a(n) = A139150(A089085(n)). - Amiram Eldar, Oct 13 2024
Showing 1-3 of 3 results.