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,1

Comments

Complement of A182942.

Links

Table of n, a(n) for n=1..68.

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

Crossrefs

Cf. A182870, A182942.

Sequence in context: A120261 A310338 A101154 * A310339 A090070 A078005

Adjacent sequences: A182940 A182941 A182942 * A182944 A182945 A182946

Keyword

nonn

Author

Clark Kimberling, Dec 14 2010

Status

approved