A107279 a(n) = 1 if n is an odd prime, a(n) = 2 if n is a nonzero even number, otherwise a(n) = 0.

0, 0, 2, 1, 2, 1, 2, 1, 2, 0, 2, 1, 2, 1, 2, 0, 2, 1, 2, 1, 2, 0, 2, 1, 2, 0, 2, 0, 2, 1, 2, 1, 2, 0, 2, 0, 2, 1, 2, 0, 2, 1, 2, 1, 2, 0, 2, 1, 2, 0, 2, 0, 2, 1, 2, 0, 2, 0, 2, 1, 2, 1, 2, 0, 2, 0, 2, 1, 2, 0, 2, 1, 2, 1, 2, 0, 2, 0, 2, 1, 2, 0, 2, 1, 2, 0, 2, 0, 2, 1, 2, 0, 2, 0, 2, 0, 2, 1, 2, 0

Offset

0,3

Links

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

Mathematica

Table[ If[n==0, 0, If[EvenQ[n], 2, If[PrimeQ[n], 1, 0]]], {n, 0, 99}] (* James C. McMahon, Feb 10 2024 *)

Prog

(Scheme) (define (A107279 n) (cond ((<= n 1) 0) ((even? n) 2) (else (A010051 n)))) ;; Antti Karttunen, Sep 14 2017

Crossrefs

Cf. A010051, A105661.

Sequence in context: A045888 A335885 A335875 * A078461 A341945 A280535

Adjacent sequences: A107276 A107277 A107278 * A107280 A107281 A107282

Keyword

easy,nonn

Author

Giovanni Teofilatto, May 19 2005

Extensions

Description corrected by Antti Karttunen, Sep 14 2017

Status

approved