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

112, 428, 430, 1960, 3042, 3496, 5062, 10038, 12294, 15828, 23208, 24116, 24632, 26892, 33368, 35960, 43960, 44140, 53382, 58402, 59610, 72214, 87628, 88036, 90474, 90846, 92678, 92688, 96510, 97766, 97768, 105082, 120116, 128756, 131154, 131882, 142682

Offset

1,1

Links

Table of n, a(n) for n=1..37.

Mathematica

lst={}; Do[p=n^32+1; q=(n+2)^32+1; If[PrimeQ[p] && PrimeQ[q], AppendTo[lst, n]], {n, 0, 150000}]; lst
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 *)

Crossrefs

Cf. A006315.

Sequence in context: A203916 A234681 A234674 * A221798 A340574 A189544

Adjacent sequences: A217989 A217990 A217991 * A217993 A217994 A217995

Keyword

nonn,easy

Author

Michel Lagneau, Oct 17 2012

Status

approved