OFFSET
1,1
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..2000
MATHEMATICA
semiPrimeQ:=Last[Total[FactorInteger[#]]]==2&;
A264779=Select[Range[1000], Map[Apply[And, #]&, Transpose[Map[{CompositeQ[#], OddQ[#], SquareFreeQ[#], semiPrimeQ[#]}&, {6#+1, 3#+2, 6#+7}]]]=={True, True, True, False}&]
PROG
(PARI) is(n)={bittest(n, 0)&&Set(apply(issquarefree, n=[3*n+2, 6*n+1, 6*n+7]))==[1]&&vecmax(n=apply(omega, n))>2&&vecmin(n)>1} \\ M. F. Hasler, Nov 25 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Nov 24 2015
STATUS
approved