%I #12 Sep 09 2017 11:54:53
%S 0,0,1,1,1,2,2,1,2,2,2,2,2,2,2,2,2,2,1,2,3,2,2,2,2,2,2,2,2,3,2,1,2,2,
%T 2,2,3,2,2,3,2,2,2,3,2,2,2,3,2,2,3,2,3,2,2,3,3,2,2,2,3,3,2,3,3,2,2,2,
%U 2,2,3,2,3,3,2,3,2,2,2,3,2,3,2,3,2,3,2,2,2,3,2,3,2,2,2,2,3,3,3
%N Number of distinct prime divisors of prime(n)-3.
%C a(n) = 1 if prime(n) is in A057733. - _Robert Israel_, Dec 28 2015
%H Robert Israel, <a href="/A023568/b023568.txt">Table of n, a(n) for n = 1..10000</a>
%p 0,0,seq(nops(numtheory:-factorset(ithprime(i)-3)), i=3..100); # _Robert Israel_, Dec 28 2015
%t Join[{0,0},PrimeNu/@(Prime[Range[3,100]]-3)] (* _Harvey P. Dale_, Sep 09 2017 *)
%Y Cf. A023569, A057733.
%K nonn
%O 1,6
%A _Clark Kimberling_
|