|
%I #10 Apr 23 2022 05:36:11
%S 1,1,2,1,2,2,1,2,3,2,2,1,2,3,3,4,2,2,1,2,4,1,3,2,4,4,3,4,3,2,3,2,2,2,
%T 5,4,3,1,4,3,2,3,2,4,2,1,3,3,4,2,6,3,7,5,4,5,3,3,2,3,5,1,5,2,3,4,3,1,
%U 6,6,3,1,3,2,5,2,4,4,4,2,6,2,2,1,3,4,3,2,4,3
%N Number of distinct prime factors in binomial(2*n,n)+1.
%H Amiram Eldar, <a href="/A067437/b067437.txt">Table of n, a(n) for n = 1..212</a>
%F a(n) = A001221(A244174(n)). - _Amiram Eldar_, Apr 23 2022
%t a[n_] := PrimeNu[Binomial[2*n,n] + 1]; Array[a,90] (* _Amiram Eldar_, Apr 23 2022 *)
%Y Cf. A001221, A000984, A067434, A244174.
%K easy,nonn
%O 1,3
%A _Benoit Cloitre_, Feb 23 2002
|
