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

Author

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

Keywords

• nonn
• easy

Examples

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

Links

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

Crossrefs

Cf. A013939, A001221.

Programs

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 *)

PARI

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

Extensions

More terms from Klaus Brockhaus, Apr 12 2004