|
%I #19 Oct 05 2023 19:25:37
%S -1,2,-1,4,-3,2,-5,-8,-7,6,11,-4,5,6,15,16,17,14,-13,-12,-19,-10,15,
%T 24,-23,-26,-21,-12,-3,2,31,-32,-31,-30,-33,-28,-27,30,39,40,25,22,43,
%U -44,-35,-34,-41,-16,17,14,15,20,45,46,-53,-56,-39,-38,-25,-12
%N Difference of n-th prime and (bitwise XOR of n and n-th prime).
%C a(n) = A000040(n) - A070883(n).
%H Reinhard Zumkeller, <a href="/A194187/b194187.txt">Table of n, a(n) for n = 1..10000</a>
%t #[[2]]-BitXor[#[[1]],#[[2]]]&/@Table[{n,Prime[n]},{n,60}] (* _Harvey P. Dale_, Oct 05 2023 *)
%o (Haskell)
%o a194187_list = zipWith (-) a000040_list a070883_list
%Y Cf. A000040, A070883, A174375.
%K sign,look
%O 1,2
%A _Reinhard Zumkeller_, Oct 12 2011
|
