Search: id:A129309 Results 1-1 of 1 results found. %I A129309 %S A129309 1,1,3,3,2,3,4,4,5,5,6,6,6,7,8,7,8,7,7,10,9,9,9,9,10,10,10,10,12,12,12, %T A129309 13,14,13,13,13,14,14,14,14,14,14,16,16,17,16,15,17,17,16,18,19,19,19, %U A129309 19,18,20,21,20,20,21,21,21,21,21,22,22,22,22,22,22,23,23,23,23,25,24 %N A129309 a(n) = number of primes which are < c(n) and are coprime to c(n), where c(n) is the n-th composite. %H A129309 Leroy Quet, Home Page (listed in lieu of email address) %F A129309 a(n) = A048865(A002808(n)) = A000720(A002808(n)) - A001221(A002808(n)). %p A129309 A002808 := proc(n) local resul,i ; i := 1 ; resul := 4 ; while i < n do resul := resul+1 ; while isprime(resul) do resul := resul+1 ; od ; i := i+1 ; od; RETURN(resul) ; end: A000720 := proc(n) numtheory[pi](n) ; end: A001221 := proc(n) nops(numtheory[factorset](n)) ; end: A048865 := proc(n) A000720(n)-A001221(n) ; end: A129309 := proc(n) A048865(A002808(n)) ; end: seq(A129309(n),n=1..80) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 15 2007 %Y A129309 Cf. A048865. %Y A129309 Sequence in context: A079063 A031352 A057853 this_sequence A003560 A123676 A122775 %Y A129309 Adjacent sequences: A129306 A129307 A129308 this_sequence A129310 A129311 A129312 %K A129309 nonn %O A129309 1,3 %A A129309 Leroy Quet May 26 2007 %E A129309 More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 15 2007 Search completed in 0.001 seconds