A223881 Denominators in the expression m!/(prime(m-1)+1) for m > 1 such that this expression is not an integer.

3, 2, 19, 31, 37, 79, 41, 97, 53, 139, 71, 157, 83, 199, 211, 229, 131, 271, 137, 307, 331, 337, 173, 367, 379, 197, 439, 227, 499, 263, 547, 281, 577, 293, 197, 199, 601, 607, 619, 661, 227, 229, 691, 239, 727, 383, 269, 811, 829, 283, 431, 877, 467, 937, 313

Offset

1,1

Comments

It appears that all terms are primes.

Links

Paolo P. Lava, Table of n, a(n) for n = 1..1000

Mathematica

Denominator[Select[Table[m!/(Prime[m - 1] + 1), {m, 2, 300}], ! IntegerQ[#] &]] (* T. D. Noe, May 03 2013 *)

Prog

(PARI) m=M=1; forprime(p=2, 1e5, M*=m++; t=denominator(M/(p+1)); if(t>1, print1(t", "))) \\ Charles R Greathouse IV, May 08 2013

Crossrefs

Cf. A007528, A024898, A002476, A091178.

Sequence in context: A066195 A090587 A094554 * A154262 A367548 A154261

Adjacent sequences: A223878 A223879 A223880 * A223882 A223883 A223884

Keyword

nonn

Author

Alexander R. Povolotsky, May 01 2013

Status

approved