A335304 Primes k such that k divides sum of k-th twin prime pair.

2, 3, 5, 34543

Offset

1,1

Comments

Primes in A335303.

a(5) > 2*10^11, if it exists. - Giovanni Resta, Jun 01 2020

Links

Table of n, a(n) for n=1..4.

Chris K. Caldwell and G. L. Honaker, Jr., Prime Curio for 34543

Example

34543 is a term because sum of 34543th twin prime pair is 5388707 + 5388709 = 8*3*13*34543.

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

Prog

(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

Crossrefs

Cf. A001097, A001359, A006512, A054735, A077800, A335303.

Sequence in context: A263429 A175309 A357323 * A193888 A361312 A305192

Adjacent sequences: A335301 A335302 A335303 * A335305 A335306 A335307

Keyword

nonn,bref,more

Author

Metin Sariyar, May 31 2020

Status

approved