|
%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
|
