OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10002
MAPLE
a:=proc(n) if isprime(2*n-1)=false and isprime(2*n+1)=false and isprime(2*n+3)=false then 2*n-1, 2*n+1, 2*n+3 else fi end: seq(a(n), n=1..150);
MATHEMATICA
Flatten[Table[If[OddQ[n - 1] && PrimeQ[n - 1] == False && PrimeQ[n + 1] == False && PrimeQ[n + 3] == False, {{n - 1}, {n + 1}, {n + 3}}, {}], {n, 2, 300}]]
Select[Partition[Range[1, 301, 2], 3, 1], NoneTrue[#, PrimeQ]&]//Flatten (* Harvey P. Dale, Jul 16 2021 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Roger L. Bagula, May 20 2007
EXTENSIONS
Edited by N. J. A. Sloane, Jun 09 2007
Definition modified by Harvey P. Dale, Jul 16 2021
STATUS
approved