A071839 - OEIS

%I #5 Mar 30 2012 18:39:03

%S 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

%T 1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,

%U 2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5

%N Number of primes == 1 mod 8 <= n.

%o (PARI) for(n=1,200,print1(sum(i=1,n,if((i*isprime(i)-1)%8,0,1)),","))

%K easy,nonn

%O 1,41

%A _Benoit Cloitre_, Jun 08 2002