|
%I #11 Sep 08 2022 08:44:48
%S 0,1,1,1,2,2,2,2,2,2,3,2,2,2,2,2,2,4,3,3,2,4,2,2,3,2,3,3,3,3,3,3,2,3,
%T 2,2,3,2,3,4,3,2,3,4,3,3,2,3,4,4,3,3,2,3,3,4,2,4,2,2,4,4,3,2,3,3,2,3,
%U 3,4,3,3,4,2,3,3,3,4,4,3,4,4,4,3,4,3,4,4,3,3,3,3,2,4,3,5,3,3,3,3
%N Number of distinct prime divisors of n-th term of A024702.
%H Charles R Greathouse IV, <a href="/A024708/b024708.txt">Table of n, a(n) for n = 3..10000</a>
%t PrimeNu[(Prime[Range[3, 100]]^2 - 1) / 24] (* _Vincenzo Librandi_, Apr 27 2019 *)
%o (PARI) a(n)=omega(prime(n)^2\24) \\ _Charles R Greathouse IV_, May 30 2013
%o (Magma) [#PrimeDivisors(NthPrime(n)^2 div 24): n in [3..100]]; // _Vincenzo Librandi_, Apr 27 2019
%K nonn
%O 3,5
%A _Clark Kimberling_
%E a(25) and other terms corrected by _Charles R Greathouse IV_, May 30 2013
|
