A024708 Number of distinct prime divisors of n-th term of A024702.

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, 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, 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

Offset: 3

Author

Clark Kimberling

Keywords

• nonn

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 3..10000

Programs

Magma

[#PrimeDivisors(NthPrime(n)^2 div 24): n in [3..100]]; // Vincenzo Librandi, Apr 27 2019

Mathematica

PrimeNu[(Prime[Range[3, 100]]^2 - 1) / 24] (* Vincenzo Librandi, Apr 27 2019 *)

PARI

a(n)=omega(prime(n)^2\24) \\ Charles R Greathouse IV, May 30 2013

Extensions

a(25) and other terms corrected by Charles R Greathouse IV, May 30 2013