A182942 Ranks of primes when all odd prime powers p^j, for j>=1, are jointly ranked.

1, 2, 3, 5, 6, 7, 8, 9, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 62, 63, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 79, 80, 81, 82, 84, 85, 86, 87, 88, 89, 90, 91, 92

Offset: 1

Author

Clark Kimberling, Dec 14 2010

Keywords

• nonn

Comments

Column 1 of the array A182870. Complement of A182943.

Examples

			1,2,3,5,6,7,... are the ranks of 3,5,7,11,13,17...
in 3,5,7,9,11,13,17,...
		

Crossrefs

Cf. A182870, A182943.

Programs

Mathematica

  T[i_,j_]:=Sum[Floor[j*Log[Prime[i+1]]/Log[Prime[h]]],{h,2,PrimePi[Prime[i+1]^j]}]; Table[Flatten[Table[T[i,j],{i,1,80},{j,1,1}]]]