A137264 Prime number gaps read modulo 3.
1, 2, 2, 1, 2, 1, 2, 1, 0, 2, 0, 1, 2, 1, 0, 0, 2, 0, 1, 2, 0, 1, 0, 2, 1, 2, 1, 2, 1, 2, 1, 0, 2, 1, 2, 0, 0, 1, 0, 0, 2, 1, 2, 1, 2, 0, 0, 1, 2, 1, 0, 2, 1, 0, 0, 0, 2, 0, 1, 2, 1, 2, 1, 2, 1, 2, 0, 1, 2, 1, 0, 2, 0, 0, 1, 0, 2, 1, 2, 1, 2, 1, 2, 0, 1, 0, 2, 1, 2, 1, 0, 2, 1, 2, 1, 0, 0, 2, 0, 0, 1, 0
Offset: 1
Links
- Terence Tao, Biases between consecutive primes, blog entry March 14, 2016
Programs
-
Mathematica
n=1000;(*The length of the list*) Mod[Differences[Table[Prime[i], {i, n}]], 3]
-
Scheme
(define (A137264 n) (modulo (A001223 n) 3)) ;; Antti Karttunen, Mar 16 2016
Comments