1,1

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

a(n)=[A002145(n+1)-A002145(n)]

first and second 4k+3 primes are 3 and 7, so a(1)=(7-3)=4;

k=0; m=4; r=3; Do[s=Mod[Prime[n], m]; If[Equal[s, r], rp=ep; k=k+1; ep=Prime[n]; Print[ep-rp]; ], {n, 1, 1000}]

Cf. A002144, A002145, A082073-A082076.

Sequence in context: A273428 A273765 A273854 * A243641 A276620 A276681

Adjacent sequences: A082072 A082073 A082074 * A082076 A082077 A082078

nonn

Labos Elemer, Apr 07 2003

approved