A064800 n plus the number of its prime factors: a(n) = n + A001222(n).

1, 3, 4, 6, 6, 8, 8, 11, 11, 12, 12, 15, 14, 16, 17, 20, 18, 21, 20, 23, 23, 24, 24, 28, 27, 28, 30, 31, 30, 33, 32, 37, 35, 36, 37, 40, 38, 40, 41, 44, 42, 45, 44, 47, 48, 48, 48, 53, 51, 53, 53, 55, 54, 58, 57, 60, 59, 60, 60, 64, 62, 64, 66, 70, 67, 69, 68, 71, 71, 73, 72

Offset: 1

Author

Reinhard Zumkeller, Oct 21 2001

Keywords

• nonn

Comments

Prime factors counted with multiplicity. - Harvey P. Dale, Aug 19 2015

Examples

			a(42) = 45 = 42 + 3 (as 42 = 2 * 3 * 7)
		

Links

• Harry J. Smith, Table of n, a(n) for n=1,...,1000

Crossrefs

Cf. A001222, A229109.

Programs

Haskell

a064800 n = a001222 n + n  -- Reinhard Zumkeller, Oct 27 2012

Maple

A064800 := proc(n)
    n+numtheory[bigomega](n) ;
end proc: # R. J. Mathar, Oct 21 2012

Mathematica

Table[n + PrimeOmega[n],{n,80}] (* Harvey P. Dale, Aug 19 2015 *)

PARI

{ for (n=1, 1000, write("b064800.txt", n, " ", n + bigomega(n)) ) } \\ Harry J. Smith, Sep 26 2009