|
%I #22 May 27 2019 22:33:14
%S 97,136,178,192,199,292,313,332,448,467,472,478,487,535,542,577,604,
%T 617,697,773,790,797,852,885,940,962,967,997,1017,1045,1096,1127,1147,
%U 1165,1182,1202,1237,1291,1292,1319,1332,1339,1345,1354,1368,1397,1414
%N Numbers k such that 2*k+1 divides C(2*k,k).
%C Integers k such that A056617(k) = 1. - _Michel Marcus_, May 27 2019
%C Numbers n such that A005408(n) divides A000984(n). - _Felix Fröhlich_, May 27 2019
%H Michael De Vlieger, <a href="/A073076/b073076.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range@ 1500, Mod[Binomial[2 #, #], 2 # + 1] == 0 &] (* _Michael De Vlieger_, May 27 2019 *)
%o (PARI) isok(n) = ! (binomial(2*n, n) % (2*n+1)); \\ _Michel Marcus_, Nov 28 2013
%Y Cf. A000984, A005408, A056616, A056617, A080394.
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Aug 17 2002
|
