cp's OEIS Frontend

A175192 a(n) = characteristic function of numbers k such that A000203(m) = k has solution, where A000203(m) = sums of divisors of m.

%I A175192 #13 Oct 20 2017 18:51:23
%S A175192 1,0,1,1,0,1,1,1,0,0,0,1,1,1,1,0,0,1,0,1,0,0,0,1,0,0,0,1,0,1,1,1,0,0,
%T A175192 0,1,0,1,1,1,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,1,1,0,0,1,0,1,1,0,0,0,0,1,
%U A175192 0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,1,0,1,0,0,1,0,1,0,0,0,1,0,1,0
%N A175192 a(n) = characteristic function of numbers k such that A000203(m) = k has solution, where A000203(m) = sums of divisors of m.
%C A175192 a(n) = 1 if A000203(m) = n for some m, else 0.
%C A175192 a(n) = 1 for n such that A054973(n) >= 1. a(n) = 0 for n such that A054973(n) = 0.
%H A175192 Antti Karttunen, <a href="/A175192/b175192.txt">Table of n, a(n) for n = 1..65537</a>
%H A175192 <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%t A175192 nn = 200; t = Union[Select[DivisorSigma[1, Range[nn]], # <= nn &]]; t2 = Table[0, {200}]; t2[[t]] = 1; t2 (* _T. D. Noe_, Jan 24 2012 *)
%o A175192 (PARI)
%o A175192 up_to = 65537
%o A175192 v175192 = vector(up_to);
%o A175192 for(k=1, up_to, t=sigma(k); if(t<=up_to, v175192[t] = 1)); \\ See also code in A054973.
%o A175192 write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
%o A175192 write_to_bfile(1,v175192,"b175192_upto65537.txt");
%o A175192 \\ _Antti Karttunen_, Oct 20 2017
%Y A175192 Characteristic function of A002191.
%Y A175192 Cf. A000203, A054973.
%K A175192 nonn
%O A175192 1,1
%A A175192 _Jaroslav Krizek_, Mar 01 2010
%E A175192 More terms from _Antti Karttunen_, Oct 20 2017