%I #16 Sep 08 2022 08:45:54
%S 62244,139230,171990,1010100,1029210,1275456,1320774,1353534,1356810,
%T 1433796,1722630,1842750,2131584,2300844,2396940,2890524,2915094,
%U 3357354,3579030,3625440,3631446,4165980,4392024,4408950,4518150
%N Numbers n > 0 such that n^6 + 1091 and n^6 + 1093 are both prime.
%t tpQ[n_]:=Module[{x=n^6+1091},PrimeQ[x]&&PrimeQ[x+2]]
%t Select[Range[5000000],tpQ] (* _Harvey P. Dale_, Feb 17 2011 *)
%o (Magma) IsA181114:=func< n | IsPrime(k+1091) and IsPrime(k+1093) where k is n^6 >; [ n: n in [1..5000000] | IsA181114(n) ]; // _Klaus Brockhaus_, Feb 17 2011
%Y Cf. A001014, A066386.
%K nonn
%O 1,1
%A _Jason Earls_, Oct 04 2010