A075656 - OEIS

%I #8 Feb 27 2021 11:19:36

%S 1,4,6,6,10,12,14,10,12,20,22,18,26,28,30,18,34,24,38,30,42,44,46,30,

%T 30,52,30,42,58,60,62,34,66,68,70,42,74,76,78,50,82,84,86,66,60,92,94,

%U 54,56,60,102,78,106,60,110,70,114,116,118,90,122,124,84,66,130,132

%N n + product of prime factors of n.

%C Prime factors taken without multiplicity. - _Harvey P. Dale_, Feb 27 2021

%H Harvey P. Dale, <a href="/A075656/b075656.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n)=A073353(n), n>1. [From _R. J. Mathar_, Sep 23 2008]

%e 6 + product of prime factors of 6 = 6 + 2 * 3 = 12, so a(6) = 12.

%t Flatten[Append[{1}, Table[n + Apply[Times, Transpose[FactorInteger[n]][[1]]], {n, 2, 100}]]]

%t Join[{1},Table[n+Times@@FactorInteger[n][[All,1]],{n,2,70}]] (* _Harvey P. Dale_, Feb 27 2021 *)

%K easy,nonn

%O 1,2

%A _Joseph L. Pe_, Oct 12 2002