Voozh

A092604

Complement of A013939.

5, 10, 13, 16, 18, 22, 25, 27, 29, 32, 35, 38, 41, 42, 46, 48, 50, 52, 55, 57, 59, 62, 63, 66, 68, 70, 73, 76, 78, 80, 83, 85, 87, 89, 91, 94, 95, 98, 100, 103, 105, 106, 109, 111, 113, 114, 117, 120, 122, 124, 126, 128, 129, 132, 135, 138, 139, 141, 143, 145, 147, 150

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Georg Fischer, Table of n, a(n) for n = 1..14301 [first 3148 terms from G. C. Greubel]

EXAMPLE

a(6)=13 because 22 is the 6th smallest number that does not occur in A013939.

MATHEMATICA

f[n_] := Sum[ Length[ FactorInteger[i]], {i, n}]; Complement[ Range[133], Table[ f[n] -1, {n, 70}]] (* Robert G. Wilson v, Apr 13 2004 *)

PROG

(PARI) s=0; for(n=1, 90, a=omega(n); for(j=1, a-1, print1(s, ", "); s++); s++) \\ Klaus Brockhaus, Apr 12 2004

CROSSREFS