%I #9 Jun 05 2023 11:42:30
%S 4,68,164,260,292,356,388,452,484,516,548,676,708,772,836,932,964,
%T 1028,1060,1124,1156,1252,1348,1412,1444,1508,1572,1604,1636,1732,
%U 1796,1828,1892,1924,2084,2116,2244,2276,2308,2372,2404,2468,2564,2596,2692,2756
%N Even numbers k such that binomial(k+p,k) mod k = 1, where p=10.
%H Harvey P. Dale, <a href="/A133881/b133881.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[2*Range[1500],Mod[Binomial[10+#,#],#]==1&] (* _Harvey P. Dale_, Jun 05 2023 *)
%Y Cf. A133620, A133621-A133625, A133630, A038509, A133634-A133636.
%Y Cf. A133880, A133890, A133900, A133910.
%K nonn
%O 1,1
%A _Hieronymus Fischer_, Oct 16 2007
|