A225517 Integers m > 1 such that expression m!/(prime(m-1)+1) is not an integer.

2, 3, 13, 19, 22, 38, 39, 45, 48, 60, 62, 66, 68, 79, 83, 89, 100, 101, 102, 113, 122, 123, 126, 131, 135, 139, 152, 156, 169, 178, 184, 189, 192, 194, 195, 197, 198, 199, 204, 217, 219, 221, 222, 228, 232, 243, 256, 258, 261, 266, 270, 274, 286, 288, 289, 292

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1100

Mathematica

Select[Range[2, 522], ! IntegerQ[#!/(Prime[# - 1] + 1)] &] (* T. D. Noe, May 10 2013 *)

Prog

(PARI) my(m=M=1); forprime(p=2, 3000, M*=m++; my(t=denominator(M/(p+1))); if(t>1, print1(m", ")))

Crossrefs

Cf. A223881.

Sequence in context: A352539 A338216 A143871 * A389000 A254462 A275030

Adjacent sequences: A225514 A225515 A225516 * A225518 A225519 A225520

Keyword

nonn

Author

Alexander R. Povolotsky, May 09 2013

Status

approved