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,2

Comments

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

Links

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

Example

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

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

Prog

(PARI) { for (n=1, 1000, write("b064800.txt", n, " ", n + bigomega(n)) ) } \\ Harry J. Smith, Sep 26 2009
(Haskell)
a064800 n = a001222 n + n  -- Reinhard Zumkeller, Oct 27 2012

Crossrefs

Cf. A001222, A229109.

Sequence in context: A286956 A265283 A023836 * A078574 A347299 A230300

Adjacent sequences: A064797 A064798 A064799 * A064801 A064802 A064803

Keyword

nonn

Author

Reinhard Zumkeller, Oct 21 2001

Status

approved