OFFSET
1,2
MATHEMATICA
f[n_] := FromDigits[ RotateLeft[ IntegerDigits[n, 2]], 2]; Table[ f[ Prime[i]], {i, 1, 60}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Sep 13 2003
STATUS
approved