A244505 Greater of twin primes of (40n-23,40n-21).
19, 139, 619, 859, 1699, 2659, 3259, 4219, 4339, 5419, 5659, 7459, 8539, 9859, 10459, 10939, 11059, 11779, 12379, 13219, 13339, 15139, 15739, 17419, 17659, 19699, 20899, 21019, 21379, 21739, 22699, 23059, 23539, 24979, 25579, 27739, 28099, 30139, 32059
Offset: 1
Keywords
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
Programs
-
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 *)
-
PARI
lista(nn) = for(n=1, nn, if(isprime(q=40*n-21) && isprime(q-2), print1(n, ", "))); \\ Michel Marcus, Nov 12 2014
-
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=",")
Comments