A088162 n-th prime rotated one binary place to the right less the n-th prime rotated one binary place to the left.

0, 0, 3, 0, 6, 3, 21, 18, 12, 3, 0, 39, 33, 30, 24, 15, 6, 3, 90, 84, 81, 72, 66, 57, 45, 39, 36, 30, 27, 21, 0, 186, 177, 174, 159, 156, 147, 138, 132, 123, 114, 111, 96, 93, 87, 84, 66, 48, 42, 39, 33, 24, 21, 6, 381, 372, 363, 360, 351, 345, 342, 327, 306, 300, 297, 291

Offset

1,3

Comments

Can never be negative and equals zero iff p is 2 or a Mersenne prime (A000668).

Links

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

Mathematica

f[n_] := FromDigits[ RotateRight[ IntegerDigits[n, 2]], 2] - FromDigits[ RotateLeft[ IntegerDigits[n, 2]], 2]; Table[ f[ Prime[n]], {n, 1, 70}]

Crossrefs

Cf. A088146 - A088147.

Sequence in context: A051021 A294777 A215664 * A133170 A062542 A386492

Adjacent sequences: A088159 A088160 A088161 * A088163 A088164 A088165

Keyword

nonn

Author

Robert G. Wilson v, Sep 13 2003

Status

approved