A225517 Integers n > 1 such that expression n!/(prime(n-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
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1100
Crossrefs
Cf. A223881.
Programs
-
Mathematica
Select[Range[2, 522], ! IntegerQ[#!/(Prime[# - 1] + 1)] &] (* T. D. Noe, May 10 2013 *)
-
PARI
m=M=1; forprime(p=2, 1e5, M*=m++; t=denominator(M/(p+1)); if(t>1, print1(m", ")))