OFFSET
1,2
COMMENTS
Does not contain multiples of 4 (A008586).
MATHEMATICA
Select[Range[150], Divisible[Binomial[2^#, #], Binomial[2^#, 2]]&] (* Harvey P. Dale, Mar 24 2011 *)
PROG
(PARI) isok(k) = (binomial(2^k, k) % binomial(2^k, 2)) == 0; \\ Michel Marcus, May 14 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, Apr 11 2001
STATUS
approved