This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A175735 #7 Mar 17 2019 03:22:59 %S A175735 -2,5,16,23,25,40,49,44,52,59,56,57,70,67,77,85,81,89,79,81,91,94,101, %T A175735 92,91,100,102,103,125,129,137,160,169,166,167,160,157,156,154,145, %U A175735 160,160,162,168,172,180,181,203,202,209,204,209,213,212,208,215,228,227,237,236 %N A175735 n-th non-Chen semiprime minus n-th Chen semiprime. %C A175735 Chen semiprimes: semiprimes m such that m+4 is either a prime or a semiprime. %F A175735 a(n) = A175680(n) - A175634(n). %p A175735 isA175634 := proc(n) isA001358(n) and (isprime(n+4) or isA001358(n+4)) ; end proc: %p A175735 A175634 := proc(n) option remember; if n = 1 then 6; else for a from procname(n-1)+1 do if isA175634(a) then return a; end if; end do: end if; end proc: %p A175735 isA175680 := proc(n) isA001358(n) and not isA175634(n) ; end proc: %p A175735 A175680 := proc(n) option remember; if n = 1 then 4; else for a from procname(n-1)+1 do if isA175680(a) then return a; end if; end do: end if; end proc: %p A175735 A175735 := proc(n) A175680(n)-A175634(n) ; end proc: %p A175735 seq(A175735(n),n=1..120) ; # _R. J. Mathar_, Aug 25 2010 %K A175735 sign,less %O A175735 1,1 %A A175735 _Juri-Stepan Gerasimov_, Aug 25 2010 %E A175735 Keyword:sign,less set; corrected (87 replaced by 91, 210 replaced by 204) - _R. J. Mathar_, Aug 25 2010. Also corrected by _D. S. McNeil_, Aug 25 2010