OFFSET
1,2
LINKS
Chris K. Caldwell and G. L. Honaker, Jr., Prime Curio for 34543
EXAMPLE
8 is a term because sum of 8th twin prime pair is 71 + 73 = 8*18.
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
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 ((n % nb) == 0, print1(nb, ", ")); ); ); } \\ Michel Marcus, Jun 01 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Metin Sariyar, May 31 2020
STATUS
approved