A217992 - OEIS

A217992

Numbers n such that n^32+1 and (n+2)^32+1 are both prime.

%I #8 Aug 07 2016 11:39:31

%S 112,428,430,1960,3042,3496,5062,10038,12294,15828,23208,24116,24632,

%T 26892,33368,35960,43960,44140,53382,58402,59610,72214,87628,88036,

%U 90474,90846,92678,92688,96510,97766,97768,105082,120116,128756,131154,131882,142682

%N Numbers n such that n^32+1 and (n+2)^32+1 are both prime.

%t lst={}; Do[p=n^32+1; q=(n+2)^32+1;If[PrimeQ[p] && PrimeQ[q], AppendTo[lst, n]], {n, 0, 150000}];lst

%t Select[Range[150000],AllTrue[{#^32+1,(#+2)^32+1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 07 2016 *)

%Y Cf. A006315.

%K nonn,easy

%O 1,1

%A _Michel Lagneau_, Oct 17 2012