|
%I #11 Sep 08 2022 08:45:54
%S 0,4,8,12,16,28,24,36,32,36,56,60,48,76,72,68,64,68,72,76,112,124,120,
%T 100,96,100,152,156,144,140,136,132,128,132,136,140,144,156,152,228,
%U 224,228,248,252,240,204,200,196,192,196,200,204,304,316,312,292,288,292
%N a(n) = n XOR 5n, where XOR is bitwise XOR.
%H Vincenzo Librandi, <a href="/A178731/b178731.txt">Table of n, a(n) for n = 0..5000</a>
%t f[n_] := BitXor[n, 5 n]; Array[f, 60, 0] (* _Robert G. Wilson v_, Jun 09 2010 *)
%o (Magma) [BitwiseXor(n, 5*n): n in [0..70]]; // _Vincenzo Librandi_, Jul 11 2017
%o (PARI) a(n) = bitxor(n, 5*n); \\ _Michel Marcus_, Jul 11 2017
%Y Cf. A048724, A178729, A048725, A178732, A178733, A178734, A178735, A178736. - _Robert G. Wilson v_, Jun 09 2010
%K nonn
%O 0,2
%A _Dmitry Kamenetsky_, Jun 08 2010
%E a(30) onwards from _Robert G. Wilson v_, Jun 09 2010
|
