A075743 For all numbers of the form 6 +- 1 starting with 5,7,11,13,..., '1' indicates prime and '0' indicates composite.
1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1
Offset: 1
Links
- Daniel Forgues, Table of n, a(n) for n = 1..33332
Programs
-
Mathematica
Boole[PrimeQ/@Flatten[Table[6n+{-1,1},{n,60}]]] (* Harvey P. Dale, Jun 04 2017 *)
Formula
a(n) = pi(3n+3) - pi(3n), where pi(n) = A000720(n). - Ridouane Oudra, Sep 02 2019
Extensions
Offset corrected by N. J. A. Sloane, Feb 02 2009
Comments