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

Author

Robert G. Wilson v, Sep 13 2003

Keywords

• nonn
• base
• look

Links

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

Crossrefs

Cf. A038572, A088147.

Programs

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}]