A079090 - OEIS

%I #10 Apr 24 2015 14:45:44

%S 3,5,5,5,12,10,10,10,10,10,21,29,23,16,5,10,41,50,22,42,44,17,17,15,

%T 27,35,18,21,38,24,16,39,40,17,29,100,122,53,41,39,30,25,102,111,21,

%U 60,62,31,52,44,23,21,23,55,59,21,27,158,189,123,83,23,36,175,213,141,98,47

%N Sum of distinct prime factors of (prime(n)+1)*(prime(n+1)+1)/4.

%C a(n)=A008472(A079079(n)).

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

%t Total[Transpose[FactorInteger[((#[[1]]+1)(#[[2]]+1))/4]][[1]]]&/@ Partition[Prime[Range[70]],2,1] (* _Harvey P. Dale_, Apr 24 2015 *)

%o (Haskell)

%o a079090 = a008472 . a079079  -- _Reinhard Zumkeller_, Oct 09 2012

%Y Cf. A079091, A079089, A079085.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Dec 22 2002