|
%I #10 Aug 19 2019 14:18:35
%S 4,6,46,49,51,55,62,65,69,74,77,82,91,106,111,115,129,155,161,166,169,
%T 183,185,187,194,209,221,226,235,237,247,249,259,262,265,267,274,278,
%U 287,289,291,295,305,309,314,319,321,323,329,339,341,346,355,358,365
%N Semiprimes s such that neither s-1 nor s+1 is semiprime.
%C A064911(a(n))*(1 - A064911(a(n)-1))*(1 - A064911(a(n)+1)) = 1. - _Reinhard Zumkeller_, Apr 03 2010
%H R. Zumkeller, <a href="/A174653/b174653.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1)=4 because 4-1 = 3 (not semiprime) and 4+1 = 5 (not semiprime).
%t Mean/@SequencePosition[Table[If[PrimeOmega[n]==2,1,0],{n,400}],{0,1,0}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 19 2019 *)
%Y Cf. A001358, A100959.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Mar 25 2010
%E Corrected by _Reinhard Zumkeller_ and _Ray Chandler_, Apr 07 2010
|
