login
A350736
Lesser twin primes p such that 4*p is the sum of two consecutive primes.
1
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
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
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jan 12 2022
STATUS
approved