|
%I #18 Nov 11 2016 23:53:53
%S 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,
%T 28,30,31,30,33,32,37,35,36,37,40,38,40,41,44,42,45,44,47,48,48,48,53,
%U 51,53,53,55,54,58,57,60,59,60,60,64,62,64,66,70,67,69,68,71,71,73,72
%N n plus the number of its prime factors: a(n) = n + A001222(n).
%C Prime factors counted with multiplicity. - _Harvey P. Dale_, Aug 19 2015
%H Harry J. Smith, <a href="/A064800/b064800.txt">Table of n, a(n) for n=1,...,1000</a>
%e a(42) = 45 = 42 + 3 (as 42 = 2 * 3 * 7)
%p A064800 := proc(n)
%p n+numtheory[bigomega](n) ;
%p end proc: # _R. J. Mathar_, Oct 21 2012
%t Table[n + PrimeOmega[n],{n,80}] (* _Harvey P. Dale_, Aug 19 2015 *)
%o (PARI) { for (n=1, 1000, write("b064800.txt", n, " ", n + bigomega(n)) ) } \\ _Harry J. Smith_, Sep 26 2009
%o (Haskell)
%o a064800 n = a001222 n + n -- _Reinhard Zumkeller_, Oct 27 2012
%Y Cf. A001222, A229109.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Oct 21 2001
|
