OFFSET
1,2
COMMENTS
EXAMPLE
First, arrange the odd prime powers in rows:
3....9...27....81...
5...25..125...625...
7...49..343...2401...
Then replace each by its ranks when they are all jointly ranked:
1....4...11....26...
2...10...36...127...
3...18...78...381...
5...35..234..1760...
MATHEMATICA
T[i_, j_]:=Sum[Floor[j*Log[Prime[i+1]]/Log[Prime[h]]], {h, 2, PrimePi[Prime[i+1]^j]}]; TableForm[Table[T[i, j], {i, 1, 6}, {j, 1, 6}]]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Dec 09 2010
EXTENSIONS
Corrected and extended by Clark Kimberling, Dec 14 2010
STATUS
approved