A225517 - OEIS

%I #12 Feb 27 2017 02:56:49

%S 2,3,13,19,22,38,39,45,48,60,62,66,68,79,83,89,100,101,102,113,122,

%T 123,126,131,135,139,152,156,169,178,184,189,192,194,195,197,198,199,

%U 204,217,219,221,222,228,232,243,256,258,261,266,270,274,286,288,289,292

%N Integers n > 1 such that expression n!/(prime(n-1)+1) is not an integer.

%H G. C. Greubel, <a href="/A225517/b225517.txt">Table of n, a(n) for n = 1..1100</a>

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

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

%Y Cf. A223881.

%K nonn

%O 1,1

%A _Alexander R. Povolotsky_, May 09 2013