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

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, 75, 79, 87, 91, 99, 127, 7, 19, 23, 43, 47, 59, 71, 79, 91, 103, 107, 127, 131, 139, 143, 167, 191, 199, 203, 211, 223, 227, 247, 3, 15, 27, 31, 43, 51, 55, 75, 103, 111, 115, 123, 151

Offset

1,2

Links

Table of n, a(n) for n=1..67.

Mathematica

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

Crossrefs

Cf. A006257, A088146.

Sequence in context: A128053 A063212 A241274 * A302446 A109579 A109580

Adjacent sequences: A088144 A088145 A088146 * A088148 A088149 A088150

Keyword

nonn,base

Author

Robert G. Wilson v, Sep 13 2003

Status

approved