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

Links

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

Mathematica

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

Prog

(PARI) a(n)=omega(prime(n)^2\24) \\ Charles R Greathouse IV, May 30 2013
(Magma) [#PrimeDivisors(NthPrime(n)^2 div 24): n in [3..100]]; // Vincenzo Librandi, Apr 27 2019

Crossrefs

Sequence in context: A238277 A258757 A351399 * A096917 A336664 A335108

Adjacent sequences: A024705 A024706 A024707 * A024709 A024710 A024711

Keyword

nonn

Author

Clark Kimberling

Extensions

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

Status

approved