A193174 Duplicate of A126084.
0, 2, 1, 4, 3, 8, 5, 20, 7, 16, 13, 18, 55, 30, 53, 26, 47, 20, 41
Offset: 0
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a(2) = 1 XOR 3 = 2; a(3) = 1 XOR 3 XOR 5 = 7; a(4) = 1 XOR 3 XOR 5 XOR 7 = 0.
a := proc(n) local u,b,w,k; u := 1; w := 1; b := true; for k from 2 to n do u := u + 2; w := u + `if`(b, -w, +w); b := not b; od; w end: seq(a(n), n=1..95); # Peter Luschny, Dec 31 2014
With[{c=Range[1,201,2]},Table[BitXor@@Take[c,n],{n,100}]] (* Harvey P. Dale, Nov 19 2011 *)
a(n)=if(n==1,1,bitxor(a(n-1),2*n-1))
Vec((1 + 2*x + 6*x^2 - 2*x^3 + x^4)/(1-x^2)/(1-x^4)+O(x^99)) \\ Charles R Greathouse IV, Dec 31 2014
from operator import xor from functools import reduce def A199398(n): return reduce(xor,range(1,n<<1,2)) # Chai Wah Wu, Jul 09 2022
prime(33) XOR prime(34) XOR prime(35) XOR prime(36) = 137 XOR 139 XOR 149 XOR 151 = 0, hence 36 appears in the sequence.
N:= 1000: # to get all terms <= N R[0]:= 0: T:= 2: p:= 2; Res:= NULL: for n from 2 to N do p:= nextprime(p); T:= Bits:-Xor(T,p); if assigned(R[T]) then Res:= Res, n else R[T]:= n fi od: Res; # Robert Israel, Oct 22 2017
s = 0; seen = 2^0; for (i = 1, 262, s = bitxor(s, prime(i)); if (bittest(seen, s), print1 (i ", "), seen += 2^s))
prev = vector(1774); s = 0; pi = 0; n = 0; forprime (p=1, 1697, pi++; s = bitxor(s, p); if (s==0 || prev[s], n++; print1 (prev[s]+1 ", "), prev[s] = pi));
Comments