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,1

Comments

For examples see A254862.

Links

Table of n, a(n) for n=1..72.

Mathematica

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

Prog

(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

Crossrefs

Cf. A254862.

Sequence in context: A356379 A324712 A279321 * A085965 A238205 A186702

Adjacent sequences: A254860 A254861 A254862 * A254864 A254865 A254866

Keyword

nonn

Author

Zak Seidov, Feb 09 2015

Status

approved