OFFSET
1,1
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..2000
MATHEMATICA
semiPrimeQ:=Last[Total[FactorInteger[#]]]==2&;
A263510=Select[Range[10000], Apply[And, Map[CompositeQ[#]&&OddQ[#]&&SquareFreeQ[#]&&(!semiPrimeQ[#])&, {6#+1, 3#+2, 6#+7}]]&]
csnQ[n_]:=Module[{c={6n+1, 3n+2, 6n+7}}, AllTrue[c, CompositeQ]&&AllTrue[ c, SquareFreeQ]&&AllTrue[c, OddQ]&&FreeQ[PrimeOmega[c], 2]]; Select[Range[ 22200], csnQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 02 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Nov 24 2015
STATUS
approved