|
|
A088146
|
|
n-th prime rotated one binary place to the right.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|