login
Values of k such that A065293(k) = 0.
3

%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