%I #20 Mar 07 2021 18:50:15
%S 3,6,7,18,20,23,27,31,39,40,55,56,57,68,75,80,88,90,101,103,113,115,
%T 116,124,126,129,132,136,139,148,153,163,165,173,194,203,211,215,218,
%U 232,260,277,284,285,288,290,293,302,309,336,344,347,357,358,362,368,377,390,394,397,401
%N Numbers k such that (30*k)^4 + 1 is prime.
%C This is the third sequence in a family defined by this same condition, when generalized as (30*k)^(2^m).
%C A111175 and A138220 are the first and second sequences in this family, with m = 0 and m = 1, respectively.
%t (* This program gives some results for each member of the family for m up to 10. *)
%t Do[resultk = {};
%t Do[
%t r = (30 k)^(2^m) + 1;
%t If[PrimeQ[r], AppendTo[resultk, k]];
%t , {k, 1, 1000}];
%t If[Length[resultk] > 0, Print[{m, 2^m, resultk}]], {m, 0, 10}]
%o (PARI) isok(k) = isprime((30*k)^4 + 1); \\ _Michel Marcus_, Feb 13 2021
%Y Cf. A111175, A138220.
%K nonn
%O 1,1
%A _Richard R. Forberg_, Feb 06 2021