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
Keywords
Links
- Paolo P. Lava, Table of n, a(n) for n = 1..1000
- Alexander R. Povolotsky, Mathematics StackExchange, Conjecture regarding this sequence, 2025.
- Alexander R. Povolotsky, Reindexed group1 primes, 2025.
- Alexander R. Povolotsky, Reindexed group2 primes, 2025.
- Alexander R. Povolotsky, Reindexed group3 primes, 2025.
- Alexander R. Povolotsky, Reindexed group4 primes, 2025.
Programs
-
Mathematica
Denominator[Select[Table[m!/(Prime[m - 1] + 1), {m, 2, 300}], ! IntegerQ[#] &]] (* T. D. Noe, May 03 2013 *)
-
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
Comments