OFFSET
1,2
COMMENTS
Larger terms computed with the help of Kim Walisch's primecount. a(69) > 5*10^14. - Giovanni Resta, Jul 14 2018
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..68
MATHEMATICA
Select[Range[10^5], Mod[Prime[#] + Prime[# + 1], #] == 0 &] (* Giovanni Resta, Jul 14 2018 *)
PROG
(PARI) {a=2; b=2; for(n=1, 10^6, b=nextprime(b+1); (a+b)%n==0&print(n); a=b)} \\ Zak Seidov, Dec 28 2010
(Magma) S:=[]; p:=2; q:=p; for n in [1..10^7] do q:=NextPrime(q); if (p+q) mod n eq 0 then Append(~S, n); end if; p:=q; end for; S; // Klaus Brockhaus, Dec 28 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 24 2002
EXTENSIONS
Additional terms provided by Harvey P. Dale, Jan 28, 2002
More terms from David W. Wilson, Feb 20 2002
Merged with an entry submitted by Zak Seidov, Dec 28 2010
a(35)-a(36) from Giovanni Resta, Jul 14 2018
STATUS
approved