A350736 Lesser twin primes p such that 4*p is the sum of two consecutive primes.

3, 17, 137, 617, 1277, 1427, 1949, 2027, 3119, 4157, 5417, 5657, 10139, 13217, 13691, 13709, 16187, 17657, 17837, 18911, 19379, 20507, 20807, 24371, 25577, 27407, 27527, 29207, 31391, 31847, 32117, 32909, 33767, 34847, 36467, 39839, 40037, 47057, 47387, 47657, 48311, 49199, 49367, 49739, 49787

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

a(3) = 137 is a term because 137 and 139 are primes and 4*137 = 548 is the sum of consecutive primes 271 and 277.

Maple

P:= select(isprime, {seq(i, i=3..100000, 2)}):
T:= P intersect map(`-`, P, 2):
sort(convert(select(r -> prevprime(2*r)+nextprime(2*r)=4*r, T), list));

Mathematica

Select[Plus @@@ Partition[Select[Range[10^5], PrimeQ], 2, 1]/4, And @@ PrimeQ[# + {0, 2}] &] (* Amiram Eldar, Jan 13 2022 *)

Crossrefs

Intersection of A001359 and A118134.

Sequence in context: A199138 A006290 A060003 * A231909 A331688 A286896

Adjacent sequences: A350733 A350734 A350735 * A350737 A350738 A350739

Keyword

nonn

Author

J. M. Bergot and Robert Israel, Jan 12 2022

Status

approved