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.
%I A088162 #2 Mar 30 2012 17:30:55
%S A088162 0,0,3,0,6,3,21,18,12,3,0,39,33,30,24,15,6,3,90,84,81,72,66,57,45,39,
%T A088162 36,30,27,21,0,186,177,174,159,156,147,138,132,123,114,111,96,93,87,
%U A088162 84,66,48,42,39,33,24,21,6,381,372,363,360,351,345,342,327,306,300,297,291
%N A088162 n-th prime rotated one binary place to the right less the n-th prime rotated one binary place to the left.
%C A088162 Can never be negative and equals zero iff p is 2 or a Mersenne prime (A000668).
%t A088162 f[n_] := FromDigits[ RotateRight[ IntegerDigits[n, 2]], 2] - FromDigits[ RotateLeft[ IntegerDigits[n, 2]], 2]; Table[ f[ Prime[n]], {n, 1, 70}]
%Y A088162 Cf. A088146 - A088147.
%K A088162 nonn
%O A088162 1,3
%A A088162 _Robert G. Wilson v_, Sep 13 2003