A133634 Nonprime numbers k such that binomial(k+p,k) mod k = 1, where p=4.

10, 25, 26, 34, 35, 49, 50, 55, 58, 65, 74, 77, 82, 85, 91, 95, 98, 106, 115, 119, 121, 122, 125, 130, 133, 143, 145, 146, 154, 155, 161, 169, 170, 175, 178, 185, 187, 194, 202, 203, 205, 209, 215, 217, 218, 221, 226, 235, 242, 245, 247, 250, 253, 259, 265, 266

Offset: 1

Author

Hieronymus Fischer, Sep 30 2007

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040, A133620-A133625, A133630, A038509, A133634-A133636.

Cf. A133874, A133884, A133880, A133890, A133900, A133910.

Programs

Mathematica

Select[Range[300],!PrimeQ[#]&&Mod[Binomial[#+4,#],#]==1&] (* Harvey P. Dale, Oct 09 2011 *)