A232012 Numbers n such that p^2 + n is prime for some prime p.
1, 2, 3, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 18, 19, 20, 22, 24, 25, 27, 28, 30, 32, 33, 34, 36, 37, 38, 39, 40, 42, 43, 44, 46, 48, 49, 50, 52, 54, 55, 57, 58, 60, 62, 63, 64, 66, 67, 69, 70, 72, 74, 75, 76, 78, 79, 80, 82, 84, 85, 88, 90, 92, 93, 94, 96, 97, 98, 99, 100
Offset: 1
Keywords
Examples
2 is in sequence because 3^2 + 2 = 11 (3 and 11 are primes).
Programs
-
Mathematica
Module[{nn=50,prs},prs=Prime[Range[nn]]^2;Select[Range[ 100],AnyTrue[ prs+#,PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 04 2020 *)
Comments