A078320 - OEIS

%I #9 Jul 23 2013 13:26:14

%S 2,5,7,6,15,37,12,17,11,101,63,73,24,197,115,14,36,109,183,70,32,102,

%T 60,34,15,677,43,134,423,70,52,18,116,102,615,38,144,39,763,401,60,

%U 358,49,39,30,102,37,34,49,170,1303,55,288,23,108,162,30,678,1743,1801

%N Sum of all prime factors of n*rad(n)+1, where rad=A007947 (squarefree kernel).

%C a(n)=A001414(A078310(n)).

%H Reinhard Zumkeller, <a href="/A078320/b078320.txt">Table of n, a(n) for n = 1..10000</a>

%o (PARI) rad(n)=my(f=factor(n)[,1]); prod(i=1,#f,f[i])

%o a(n)=my(f=factor(n*rad(n)+1));sum(i=1,#f~,f[i,1]*f[i,2]) \\ _Charles R Greathouse IV_, Jul 15 2013

%o (Haskell)

%o a078320 = a001414 . a078310  -- _Reinhard Zumkeller_, Jul 23 2013

%Y Cf. A078319, A078318, A078314.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Nov 23 2002