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

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

Cf. A013939, A001221.

Sequence in context: A343113 A354235 A313379 * A313380 A313381 A269099

Adjacent sequences: A092601 A092602 A092603 * A092605 A092606 A092607

Keyword

nonn,easy

Author

Ali A. Tanara (tanara(AT)khayam.ut.ac.ir), Apr 10 2004

Extensions

More terms from Klaus Brockhaus, Apr 12 2004

Status

approved