A182870 Joint-rank array of odd prime powers: p(i+1)^j, i>=1, j>=1, read by antidiagonals.

1, 4, 2, 11, 10, 3, 26, 36, 18, 5, 61, 127, 78, 35, 6, 143, 471, 381, 234, 46, 7, 348, 1867, 1987, 1760, 349, 70, 8, 881, 7755, 11195, 14884, 3166, 686, 111, 9, 2279

Offset: 1

Author

Clark Kimberling, Dec 09 2010

Keywords

• nonn
• tabl

Comments

Joint-rank arrays are defined in the first comment at A182801. A182870 is a permutation of the positive integers.

Examples

			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...
		

Crossrefs

A182801, A182869, A182871, A182872, A182942, A182943.

Programs

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

Extensions

Corrected and extended by Clark Kimberling, Dec 14 2010