%I #12 Aug 17 2019 02:17:36
%S 2,2,5,2,7,5,9,2,5,7,13,5,15,9,10,2,19,5,21,7,12,13,25,5,7,15,5,9,31,
%T 10,33,2,16,19,14,5,39,21,18,7,43,12,45,13,10,25,49,5,9,7,22,15,55,5,
%U 18,9,24,31,61,10,63,33,12,2,20,16,69,19,28,14,73,5,75,39,10,21,20,18,81,7,5
%N Bisection of A008472.
%C The sum of the distinct primes dividing 2n. - _Emeric Deutsch_, Mar 11 2005
%e a(6)=5 because 12 = 2^2*3 and 2+3 = 5.
%p with(numtheory): a:=proc(n) local b: b:=convert(factorset(2*n),list): add(b[j],j=1..nops(b)) end: seq(a(n),n=1..90); # _Emeric Deutsch_, Mar 11 2005
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Nov 20 2004
%E More terms from _Emeric Deutsch_, Mar 11 2005
|