0,1
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Index entries for characteristic functions
a(A000041(n)) = 1; a(A167376(n)) = 0.
(PARI) a(n) = {k=0; while ((pk=numbpart(k)) != n, if (pk > n, return(0)); k++); return (1); } \\ Michel Marcus, Nov 03 2015
(Haskell)
import Data.List.Ordered (member)
a167392 = fromEnum . flip member a000041_list
-- Reinhard Zumkeller, Nov 03 2015
Cf. A167393.
For n >= 1, column 1 of A186114, also right border of A193870. - Omar E. Pol, Aug 14 2011
Sequence in context: A174206 A159637 A095076 * A168395 A130854 A112448
Adjacent sequences: A167389 A167390 A167391 * A167393 A167394 A167395
nonn
Reinhard Zumkeller, Nov 03 2009
approved