cp's OEIS Frontend

A131854 Numbers m such that A131851(m) = 0.

%I A131854 #15 Jun 05 2024 14:03:23
%S A131854 0,2,5,7,8,10,13,15,20,22,28,30,32,34,37,39,40,42,45,47,52,54,60,62,
%T A131854 65,67,73,75,80,82,85,87,88,90,93,95,97,99,105,107,112,114,117,119,
%U A131854 120,122,125,127,128,130,133,135,136,138,141,143,148,150,156,158,160,162,165
%N A131854 Numbers m such that A131851(m) = 0.
%H A131854 Robert Israel, <a href="/A131854/b131854.txt">Table of n, a(n) for n = 1..10000</a>
%p A131854 Z:= proc(n) option remember;
%p A131854 I*procname(floor(n/2))+(n mod 2)
%p A131854 end proc:
%p A131854 Z(0):= 0:
%p A131854 select(Re@Z=0, [$0..1000]); # _Robert Israel_, Dec 18 2017
%t A131854 z[0] = 0; z[n_] := z[n] = z[Floor[n/2]]*I + Mod[n, 2]; Select[Range[0, 200], Re[z[#]] == 0&] (* _Jean-François Alcover_, Jan 31 2018 *)
%o A131854 (PARI) isok(n) = {d = Vecrev(binary(n)); real(sum(k=1, #d, d[k]*I^(k-1))) == 0;} \\ _Michel Marcus_, Jan 31 2018
%Y A131854 Cf. A131853, A131855, A131859, A131861, A131863.
%K A131854 nonn
%O A131854 1,2
%A A131854 _Reinhard Zumkeller_, Jul 22 2007