OFFSET
1,1
COMMENTS
MATHEMATICA
(* This program gives some results for each member of the family for m up to 10. *)
Do[resultk = {};
Do[
r = (30 k)^(2^m) + 1;
If[PrimeQ[r], AppendTo[resultk, k]];
, {k, 1, 1000}];
If[Length[resultk] > 0, Print[{m, 2^m, resultk}]], {m, 0, 10}]
PROG
(PARI) isok(k) = isprime((30*k)^4 + 1); \\ Michel Marcus, Feb 13 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Richard R. Forberg, Feb 06 2021
STATUS
approved