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

Offset

0

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.

Sequence in context: A189295 A004539 A354805 * A023960 A129686 A104974

Adjacent sequences: A294875 A294876 A294877 * A294879 A294880 A294881

Keyword

nonn

Author

Antti Karttunen, Nov 10 2017

Status

approved