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

4, 10, 11, 18, 26, 35, 36, 46, 61, 70, 78, 83, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148

Offset: 1

Author

Clark Kimberling, Dec 14 2010

Keywords

• nonn

Comments

Complement of A182942.

Crossrefs

Cf. A182870, A182942.

Programs

Mathematica

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