|
%I #8 Nov 11 2017 12:05:33
%S 0,0,0,1,0,2,0,1,1,2,0,2,0,2,2,1,0,2,0,2,2,2,0,2,1,2,1,2,0,3,0,1,2,2,
%T 2,2,0,2,2,2,0,3,0,2,2,2,0,2,1,3,2,2,0,2,2,2,2,2,0,3,0,2,2,1,2,3,0,2,
%U 2,3,0,2,0,2,3,2,2,3,0,2,1,2,0,3,2,2,2,2,0,3,2,2,2,2,2,2,0,2,2,3,0,3,0,2,3
%N Number of proper divisors d of n such that Stern polynomial B(d,x) is irreducible.
%H Antti Karttunen, <a href="/A294891/b294891.txt">Table of n, a(n) for n = 1..22001</a>
%F a(n) = Sum_{d|n, d<n} A283991(d).
%F a(n) + A294892(n) = A032741(n).
%F a(n) = A294893(n) - A283991(n).
%e For n=50, with proper divisors [1, 2, 5, 10, 25], 2, 5, and 25 are larger than one and included in A186891, thus a(50) = 3.
%o (PARI)
%o ps(n) = if(n<2, n, if(n%2, ps(n\2)+ps(n\2+1), 'x*ps(n\2)));
%o A283991(n) = polisirreducible(ps(n));
%o A294891(n) = sumdiv(n,d,(d<n)*A283991(d));
%Y Cf. A186891, A283991, A294892, A294893, A294894.
%Y Cf. also A294881, A294901.
%Y Differs from A087624 for the first time at n=50.
%K nonn
%O 1,6
%A _Antti Karttunen_, Nov 10 2017
|
