login
n-th prime rotated one binary place to the left.
3

%I #5 Jul 01 2016 06:16:32

%S 1,3,3,7,7,11,3,7,15,27,31,11,19,23,31,43,55,59,7,15,19,31,39,51,67,

%T 75,79,87,91,99,127,7,19,23,43,47,59,71,79,91,103,107,127,131,139,143,

%U 167,191,199,203,211,223,227,247,3,15,27,31,43,51,55,75,103,111,115,123,151

%N n-th prime rotated one binary place to the left.

%t f[n_] := FromDigits[ RotateLeft[ IntegerDigits[n, 2]], 2]; Table[ f[ Prime[i]], {i, 1, 60}]

%Y Cf. A006257, A088146.

%K nonn,base

%O 1,2

%A _Robert G. Wilson v_, Sep 13 2003