A335304 Primes k such that k divides sum of k-th twin prime pair.
2, 3, 5, 34543
Offset: 1
Examples
34543 is a term because sum of 34543th twin prime pair is 5388707 + 5388709 = 8*3*13*34543.
Links
- Chris K. Caldwell and G. L. Honaker, Jr., Prime Curio for 34543
Programs
-
Mathematica
l={};c=0;Do[If[PrimeQ[Prime[n]+2],c=c+1;If[IntegerQ[(2*Prime[n]+2)/c]&&PrimeQ[c], AppendTo[l,c]]],{n,2,10^6}];l -
PARI
is(n) = {!bittest(n, 0)&&isprime(n\2-1)&&isprime(n\2+1)}; \\ A054735 lista(nn) = {my(nb=0); for (n=1, nn, if (is(n), nb++; if (isprime(nb) && ((n % nb) == 0), print1(nb, ", "));););} \\ Michel Marcus, Jun 01 2020
Comments