OFFSET
1,2
MATHEMATICA
Select[Range[44*10^6], Divisible[Prime[#]+Prime[2#], #]&] (* Harvey P. Dale, Aug 02 2018 *)
PROG
(PARI) is(n)=(prime(n)+prime(2*n))%n==0 \\ Charles R Greathouse IV, May 29 2013
(PARI) p=2; q=3; n=1; while(1, if((p+q)%n==0, print1(n", ")); p=nextprime(p+1); q=nextprime(nextprime(q+1)+1); n++) \\ Charles R Greathouse IV, May 29 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 24 2002
EXTENSIONS
a(22)-a(37) from Alex Ratushnyak, May 21 2013
STATUS
approved