A155972 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A155972

The Partition Ruler

3

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

(list; graph; refs; listen; history; text; internal format)

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