OFFSET
1,1
MATHEMATICA
a = {}; c = 3^x + 2; Do[If[PrimeQ[c], 0, AppendTo[a, x]], {x, 0, 100}]; a
Select[Range[90], CompositeQ[3^#+2]&] (* Harvey P. Dale, Sep 25 2021 *)
PROG
(Magma) [n: n in [0..100]| not IsPrime(3^n+2)]; // Vincenzo Librandi, Jan 28 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 03 2007
STATUS
approved