OFFSET
1,1
COMMENTS
Complement of A182942.
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 14 2010
STATUS
approved