A224859 Numbers n such that 90*n + 47 and 90*n + 49 are twin primes.
1, 2, 9, 16, 18, 22, 29, 38, 39, 43, 50, 51, 87, 95, 107, 108, 109, 111, 121, 123, 134, 137, 143, 144, 155, 160, 162, 176, 178, 193, 195, 199, 200, 227, 230, 233, 237, 239, 240, 241, 247, 248, 251, 261, 262, 277, 304, 314, 324, 326, 328, 338, 339, 352, 363, 370
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[0, 499], PrimeQ[90# + 47] && PrimeQ[90# + 49] &] (* copied from: Alonso del Arte, Jul 22 2013 *) Select[Range[500],AllTrue[90#+{47,49},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 18 2015 *)
Comments