A158870 Sums of the form (twin primes + 1) which are also an upper twin prime.
13, 61, 1321, 1621, 4261, 5101, 6661, 6781, 11701, 12541, 21061, 66361, 83221, 88261, 107101, 110881, 114661, 127681, 130201, 140761, 141961, 144541, 148201, 149521, 157561, 161341, 163861, 175081, 186481, 204601, 230941, 249541, 267961
Offset: 1
Keywords
Examples
The 30th lower twin prime is 659. 659+661+1 = 1321, prime and 1319 is too. Then 1319 is the lower member of the twin prime pair (1319,1321). So 1321 is in the sequence.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A158866.
Programs
-
Mathematica
With[{tws=Total/@Select[Partition[Prime[Range[25000]],2,1],#[[2]]-#[[1]] == 2&]+1},Select[tws,And@@PrimeQ[#+{0,-2}]&]] (* Harvey P. Dale, Apr 30 2014 *)
-
PARI
gp > g(n)=for(x=1,n,y=2*twinl(x)+3;if(isprime(y)&&isprime(y-2), print1(y",")))
Formula
Extensions
Edited by R. J. Mathar, Apr 06 2009
Comments