OFFSET
1,1
COMMENTS
LINKS
Karl V. Keller, Jr., Table of n, a(n) for n = 1..10000
Chris K. Caldwell, Twin primes
Eric Weisstein's World of Mathematics, Twin Primes
MATHEMATICA
Select[40*Range[1000]-21, AllTrue[{#, #-2}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 04 2019 *)
PROG
(Python) from sympy import isprime
for n in range(1, 2001):
..if isprime(40*n-23) and isprime(40*n-21): print(40*n-21, end=", ")
(PARI) lista(nn) = for(n=1, nn, if(isprime(q=40*n-21) && isprime(q-2), print1(n, ", "))); \\ Michel Marcus, Nov 12 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Karl V. Keller, Jr., Nov 11 2014
STATUS
approved