PROG
(MAGMAMagma) [(NthPrime(n) mod 3) eq 1 select 0 else 1: n in [1..200]]; // G. C. Greubel, May 21 2019
(MAGMAMagma) [(NthPrime(n) mod 3) eq 1 select 0 else 1: n in [1..200]]; // G. C. Greubel, May 21 2019
editing
approved
editing
approved
Binary sequence based on the primes used : play it at a slower tempo to make a drum-like soundappreciate the irregularities.
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
(PARI) {a(n) = if(prime(n)%3==1, 0, 1)}; \\ _G. C. Greubel, _, May 21 2019
(MAGMA) [(NthPrime(n) mod 3) eq 1 select 0 else 1: n in [1..200]]; // _G. C. Greubel, _, May 21 2019
[a(n) for n in (1..200)] # _G. C. Greubel, _, May 21 2019
approved
editing