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