A088146 n-th prime rotated one binary place to the right.

1, 3, 6, 7, 13, 14, 24, 25, 27, 30, 31, 50, 52, 53, 55, 58, 61, 62, 97, 99, 100, 103, 105, 108, 112, 114, 115, 117, 118, 120, 127, 193, 196, 197, 202, 203, 206, 209, 211, 214, 217, 218, 223, 224, 226, 227, 233, 239, 241, 242, 244, 247, 248, 253, 384, 387, 390

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

f:= proc(p) 2^ilog2(p)+(p-1)/2 end proc:
f(2):= 1:
map(f, [seq(ithprime(i), i=1..100)]); # Robert Israel, Sep 19 2019

Mathematica

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

Crossrefs

Cf. A038572, A088147.

Sequence in context: A359756 A350943 A282354 * A176301 A191290 A137595

Adjacent sequences: A088143 A088144 A088145 * A088147 A088148 A088149

Keyword

nonn,base,look

Author

Robert G. Wilson v, Sep 13 2003

Status

approved