%I #17 Jun 21 2018 03:06:58
%S 2,3,4,7,8,10,14,15,16,17,19,22,23,25,32,33,37,43,44,46,47,51,55,57,
%T 59,64,67,68,69,76,79,82,85,87,88,89,92,93,94,95,99,101,102,109,110,
%U 113,114,115,116,119,122,125,127,128,129,133,134,137,141,142,143,148
%N Values of k such that A065293(k) = 0.
%H Michel Marcus, <a href="/A065294/b065294.txt">Table of n, a(n) for n = 1..1000</a>
%t Position[Table[Count[Range[0, n - 1], _?(Mod[2^#, n] == # &)], {n, 150}], 0][[All, 1]] (* _Michael De Vlieger_, Jun 19 2018 *)
%o (PARI) isok(n) = sum(s=0, n-1, Mod(2, n)^s == s) == 0; \\ _Michel Marcus_, Jun 19 2018
%Y Cf. A065293.
%K nonn
%O 1,1
%A Jonathan Ayres (jonathan.ayres(AT)btinternet.com), Oct 28 2001
%E Incorrect term 1 removed by _Michel Marcus_, Jun 20 2018