|
%I #11 Mar 03 2019 03:44:49
%S 0,0,1,1,0,0,1,1,-1,-1,0,0,-1,-1,0,0,0,0,1,1,0,0,1,1,-1,-1,0,0,-1,-1,
%T 0,0,1,1,2,2,1,1,2,2,0,0,1,1,0,0,1,1,1,1,2,2,1,1,2,2,0,0,1,1,0,0,1,1,
%U 0,0,1,1,0,0,1,1,-1,-1,0,0,-1,-1,0,0,0,0,1,1,0,0,1,1,-1,-1,0,0,-1,-1,0,0,1,1,2,2,1,1,2,2,0,0,1,1,0,0,1,1,1,1,2,2,1,1,2,2,0
%N Imaginary part of the function z defined in A131851.
%C a(A000079(n)) = A056594(n+3);
%C a(A131855(n)) = 0; a(A131862(n)) > 0; a(A131857(n)) = 1; a(A131864(n)) < 0;
%C for n > 0: a(A098704(n+1)) = n and abs(a(m)) < n for m < A098704(n+1).
%H R. Zumkeller, <a href="/A131852/b131852.txt">Table of n, a(n) for n = 0..10000</a>
%t z[0] = 0; z[n_] := z[n] = z[Floor[n/2]]*I + Mod[n, 2]; Table[z[n] // Im, {n, 0, 120}] (* _Jean-François Alcover_, Mar 02 2019 *)
%K sign
%O 0,35
%A _Reinhard Zumkeller_, Jul 22 2007
|
