login
A176114
Numbers n such that 30*n-1, 30*n+1 are twin primes.
7
1, 2, 5, 6, 8, 9, 14, 19, 20, 22, 27, 34, 35, 41, 43, 44, 54, 65, 71, 77, 78, 85, 91, 93, 99, 100, 104, 110, 111, 112, 113, 118, 131, 134, 135, 141, 142, 155, 160, 167, 170, 176, 184, 188, 195, 196, 203, 209, 210, 212, 215, 219, 222, 223, 226, 229, 232, 245, 252
OFFSET
1,2
MATHEMATICA
Select[Range[6! ], PrimeQ[30*#-1]&&PrimeQ[30*#+1]&]
Select[Range[300], AllTrue[30#+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 21 2018 *)
CROSSREFS
Cf. A002822.
Sequence in context: A047325 A102611 A323112 * A057915 A154329 A176590
KEYWORD
nonn
AUTHOR
STATUS
approved