A125821 Numbers k for which 8*k+5 and 8*k+7 are twin primes.
3, 12, 18, 24, 33, 57, 102, 132, 153, 159, 162, 234, 243, 249, 267, 279, 288, 297, 318, 348, 423, 432, 444, 447, 477, 489, 519, 528, 552, 564, 579, 627, 684, 687, 717, 774, 783, 837, 858, 918, 948, 969, 984, 993
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Do[If[PrimeQ[8n + 5] && PrimeQ[8n + 7], Print[n]], {n, 1, 1000}] Select[Range[3,6000,3],AllTrue[8#+{5,7},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 14 2018 *)
Comments