login
Sum of exponents in prime-power factorization of p(n)*p(n-1) + 1.
1

%I #7 Apr 21 2020 14:15:47

%S 1,1,4,4,3,6,3,6,3,3,6,4,4,6,3,4,5,8,5,4,10,5,3,3,3,4,6,4,10,3,7,4,4,

%T 6,5,8,3,5,4,4,6,10,5,14,3,8,5,3,5,8,3,4,12,5,3,6,4,10,5,3,6,6,7,3,10,

%U 4,7,4,5,8,3,6,4,4,5,4,5,4,5,6

%N Sum of exponents in prime-power factorization of p(n)*p(n-1) + 1.

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

%t Join[{1},Total[FactorInteger[#][[All,2]]]&/@(Times@@@Partition[Prime[ Range[ 90]],2,1]+1)] (* _Harvey P. Dale_, Apr 21 2020 *)

%K nonn

%O 1,3

%A _Clark Kimberling_