A254863 Least prime p such that p + previousprime(p) is a multiple of n.

3, 5, 7, 5, 3, 7, 23, 5, 11, 17, 101, 7, 29, 23, 17, 59, 37, 11, 79, 31, 23, 101, 71, 13, 53, 29, 83, 43, 349, 17, 97, 67, 101, 37, 107, 19, 113, 79, 41, 61, 211, 23, 89, 157, 47, 71, 283, 73, 443, 53, 103, 29, 641, 83, 167, 59, 229, 349, 239, 31, 613, 97, 317, 67, 197, 101, 137, 37, 71, 107, 431, 73

Offset: 1

Author

Zak Seidov, Feb 09 2015

Keywords

• nonn

Comments

For examples see A254862.

Crossrefs

Cf. A254862.

Programs

Mathematica

s={}; Do[p=2; q=3; While[Mod[p+q, n]>0, p=q; q=NextPrime[q]]; AppendTo[s, q], {n, 50}]; s

PARI

s=[]; for(n=1,50,p=2;q=3;while((p+q)%n>0,p=q;q=nextprime(q+1)); s=concat(s,q));s