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 A088146 #9 Sep 19 2019 21:14:46
%S A088146 1,3,6,7,13,14,24,25,27,30,31,50,52,53,55,58,61,62,97,99,100,103,105,
%T A088146 108,112,114,115,117,118,120,127,193,196,197,202,203,206,209,211,214,
%U A088146 217,218,223,224,226,227,233,239,241,242,244,247,248,253,384,387,390
%N A088146 n-th prime rotated one binary place to the right.
%H A088146 Robert Israel, <a href="/A088146/b088146.txt">Table of n, a(n) for n = 1..10000</a>
%p A088146 f:= proc(p) 2^ilog2(p)+(p-1)/2 end proc:
%p A088146 f(2):= 1:
%p A088146 map(f, [seq(ithprime(i),i=1..100)]); # _Robert Israel_, Sep 19 2019
%t A088146 f[n_] := FromDigits[ RotateRight[ IntegerDigits[n, 2]], 2]; Table[ f[ Prime[i]], {i, 1, 60}]
%Y A088146 Cf. A038572, A088147.
%K A088146 nonn,base,look
%O A088146 1,2
%A A088146 _Robert G. Wilson v_, Sep 13 2003