|
%I #7 Nov 21 2013 12:49:07
%S 10,25,26,34,35,49,50,55,58,65,74,77,82,85,91,95,98,106,115,119,121,
%T 122,125,130,133,143,145,146,154,155,161,169,170,175,178,185,187,194,
%U 202,203,205,209,215,217,218,221,226,235,242,245,247,250,253,259,265,266
%N Nonprime numbers k such that binomial(k+p,k) mod k = 1, where p=4.
%H Harvey P. Dale, <a href="/A133634/b133634.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[300],!PrimeQ[#]&&Mod[Binomial[#+4,#],#]==1&] (* _Harvey P. Dale_, Oct 09 2011 *)
%Y Cf. A000040, A133620-A133625, A133630, A038509, A133634-A133636.
%Y Cf. A133874, A133884, A133880, A133890, A133900, A133910.
%K nonn
%O 1,1
%A _Hieronymus Fischer_, Sep 30 2007
|
