%I #10 Jul 02 2022 14:44:10
%S 0,0,2,0,1,2,6,0,2,0,10,8,9,4,1,0,5,2,17,0,0,12,14,8,1,12,22,12,23,10,
%T 13,0,11,16,16,20,16,18,37,0,18,0,4,32,31,2,14,32,45,10,4,16,20,4,1,8,
%U 22,56,32,40,20,6,42,0,41,44,36,24,15,20,5,56,25,12,61,28,24,58,23,0
%N a(n) = A007088(n) mod n.
%C a(n) = 0 see A032533, a(n) = 1 see A339567.
%F a(n) = A007088(n) mod n. a(n) = A007088(n) - n * floor(A007088(n)/n).
%e n = 7; a(7) = A007088(7) mod 7 = 111 mod 7 = 6.
%t a[n_] := Mod[FromDigits[IntegerDigits[n, 2]], n]; Array[a, 100] (* _Amiram Eldar_, Jun 27 2022 *)
%Y Cf. A007088, A032532, A032533, A339567.
%K nonn,base
%O 1,3
%A _Ctibor O. Zizka_, Jun 27 2022