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) m=M=1; forprime(p=2, 1e5, M*=m++; t=denominator(M/(p+1)); if(t>1, print1(m", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander R. Povolotsky, May 09 2013
STATUS
approved