A222760 Conjectured least prime p for which binomial(n*q,q) (mod q^3) = n for all primes q >= p.

2, 5, 3, 2, 5, 3, 3, 5, 3, 3, 5, 3, 3, 5, 3, 3, 5, 3, 3, 5, 3, 3, 5, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5

Offset

1,1

Comments

The n = 2 case is mentioned in Eric Weisstein's website.

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Eric W. Weisstein, MathWorld: Central Binomial Coefficient

Mathematica

lim = 100; Table[r = Table[Mod[Binomial[n*p, p], p^3] == n, {p, Prime[Range[lim]]}]; i = lim; While[i > 0 && r[[i]], i--]; Prime[i + 1], {n, 87}]

Crossrefs

Cf. A096328 (prime(prime(n)^3), A222759.

Sequence in context: A362090 A065261 A130848 * A302130 A156637 A195784

Adjacent sequences: A222757 A222758 A222759 * A222761 A222762 A222763

Keyword

nonn

Author

T. D. Noe, Mar 13 2013

Status

approved