A086149 Primes p such that p + 32 is also prime and there are seven primes between p and p + 32.

29, 41, 416387, 626597, 6560987, 6937937, 25658429, 25658441, 29597411, 49136357, 51448361, 57405419, 90279461, 128469149, 137943341, 162189089, 165531251, 175182587, 227779679, 261672779, 290973491, 294536141, 311725847, 334388279, 422005247, 442768631, 503804657

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..1000

Mathematica

cp[x_, y_] := Count[Table[PrimeQ[i], {i, x, y}], True] Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+32]&& Equal[cp[s+1, s+d-1], 7], Print[s]], {n, 1, 1000000}]
Select[Partition[Prime[Range[98*10^5]], 9, 1], Last[#]-First[#]==32&] [[All, 1]] (* Harvey P. Dale, Sep 12 2017 *)

Prog

(PARI) lista(pmax) = {my(ps = primes(9)); forprime(p = prime(10), pmax, ps = concat(vecextract(ps, "^1"), p); if(ps[9] - ps[1] == 32, print1(ps[1], ", "))); } \\ Amiram Eldar, Aug 15 2024

Crossrefs

Subsequence of A049489.

Sequence in context: A084163 A181622 A355599 * A344515 A066502 A125870

Adjacent sequences: A086146 A086147 A086148 * A086150 A086151 A086152

Keyword

nonn

Author

Labos Elemer, Jul 29 2003

Extensions

Definition clarified by Harvey P. Dale, Sep 12 2017

a(19)-a(27) from Amiram Eldar, Aug 15 2024

Status

approved