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

Author

Peter Luschny, Jan 31 2009

Keywords

• nonn
• tabf

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

Examples

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

Crossrefs

Cf. A000070, A000041.

Programs

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 *)