A294878 - OEIS

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

A294878

Characteristic function for A001608, Perrin sequence.

1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 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, 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, 1, 0

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

OFFSET

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..65537

Index entries for characteristic functions

PROG

(PARI)

A001608(n) = if(n<0, 0, polsym(x^3-x-1, n)[n+1]);

A294878(n) = { my(k=1, v); while((v=A001608(k))<n, k++); (v==n); };

(Scheme) (define (A294878 n) (let loop ((k 1)) (if (>= (A001608 k) n) (if (= (A001608 k) n) 1 0) (loop (+ 1 k)))))

CROSSREFS

Cf. A001608, A294879, A294880.