Pensieve header: R and P to $k=15.

Block[{$k=15}, {
R->CF/@(Subscript[R, i,j]),P->(Subscript[P, i,j])
}] // Column

ℏ=γ=1

RR=Simplify[Log[Block[{$k=15},(Subscript[R, i,j])[[3]]] /. {(Subscript[x, j])->x,(Subscript[y, i])->1}]]

PP=Simplify[Log[Block[{$k=15},(Subscript[P, i,j]);(Subscript[P, i,j])[[3]]] /. {(Subscript[ξ, j])->ξ,(Subscript[η, i])->1}]]