OFFSET
1,3
MATHEMATICA
k = 1; Do[If[n < 3, inc = 1, If[n == 3, inc = 3, inc = 15]; ]; If[Mod[k, inc] > 0, k = k + inc - Mod[k, inc]]; While[Nand @@ PrimeQ[Table[2^j, {j, n}]*k + 1], k += inc]; Print[k], {n, 1, 15}] (* Ray Chandler, Nov 21 2006 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Artur Jasinski, Nov 02 2006
EXTENSIONS
Edited by Ray Chandler, Nov 21 2006
a(10) from Farideh Firoozbakht, Nov 25 2006
a(11)-a(15) from Giovanni Resta, Apr 24 2019
STATUS
approved