A335303 Numbers k such that k divides sum of k-th twin prime pair.
1, 2, 3, 4, 5, 6, 8, 12, 18, 30, 60, 70, 78, 150, 220, 240, 340, 360, 396, 672, 840, 1188, 1365, 1665, 3080, 3770, 6420, 7317, 9952, 10356, 12972, 18318, 19218, 20544, 21996, 24750, 28656, 34543, 37449, 41910, 180622, 201570, 245115, 728028, 856420, 897022, 986794
Offset: 1
Keywords
Examples
8 is a term because sum of 8th twin prime pair is 71 + 73 = 8*18.
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], AppendTo[l,c]]] ,{n,2,10000}];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 ((n % nb) == 0, print1(nb, ", "));););} \\ Michel Marcus, Jun 01 2020