|
%I #18 May 15 2018 08:33:05
%S 1,2,3,5,7,9,11,13,14,17,19,22,23,25,26,27,29,31,33,35,37,38,39,41,43,
%T 45,46,47,49,50,51,53,55,58,59,61,62,65,66,67,69,70,71,73,74,75,77,79,
%U 81,83,85,86,87,89,91,93,94,95,97,98,99,101,102,103,106,107,109,111
%N Numbers k such that binomial(2^k, k) is divisible by binomial(2^k, 2).
%C Does not contain multiples of 4 (A008586).
%F k : A014070(k) mod A006516(k) = binomial(2^k, k) mod binomial(2^n, 2) = 0.
%t Select[Range[150],Divisible[Binomial[2^#,#],Binomial[2^#,2]]&] (* _Harvey P. Dale_, Mar 24 2011 *)
%o (PARI) isok(k) = (binomial(2^k, k) % binomial(2^k, 2)) == 0; \\ _Michel Marcus_, May 14 2018
%Y Cf. A014070, A006516.
%K easy,nonn
%O 1,2
%A _Labos Elemer_, Apr 11 2001
|
