A155972 The Partition Ruler

1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

Offset

0,1

Comments

a(k) = 1 if k = A000070(n) - 1 for some n >= 0 otherwise 0.

Is this the same as A134286? - N. J. A. Sloane, Feb 02 2009

Links

Table of n, a(n) for n=0..96.

Example

.1,
.1,
.0, 1,
.0, 0, 1,
.0, 0, 0, 0, 1,

Mathematica

a70[n_] := a70[n] = PartitionsP[Range[0, n]] // Total;
a[k_] := AnyTrue[Range[0, k], k == a70[#]-1&] // Boole;
Table[a[k], {k, 0, 96}] (* Jean-François Alcover, Jun 19 2019 *)

Crossrefs

Cf. A000070, A000041.

Sequence in context: A295895 A179416 A360845 * A010054 A106459 A143433

Adjacent sequences: A155969 A155970 A155971 * A155973 A155974 A155975

Keyword

nonn,tabf

Author

Peter Luschny, Jan 31 2009

Status

approved