login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #4 Mar 30 2012 18:57:12

%S 4,10,11,18,26,35,36,46,61,70,78,83,93,94,95,96,97,98,99,100,101,102,

%T 103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,

%U 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

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

%C Complement of A182942.

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

%Y Cf. A182870, A182942.

%K nonn

%O 1,1

%A _Clark Kimberling_, Dec 14 2010