A096481 a(n) = A000040(A096480(n)).

2, 19, 11, 79, 53, 47, 137, 331, 293, 971, 457, 263, 367, 1231, 757, 3607, 1229, 1663, 6131, 12227, 1879, 1831, 10733, 8423, 9221, 7393, 3793, 32941, 19213, 45863, 21961, 51871, 25763, 37591, 16879, 89017, 98867, 138241, 63611, 44773, 77279, 77783

Offset: 1

Author

Labos Elemer, Jun 23 2004

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..214

Crossrefs

Cf. A000040, A006450, A073124, A072677, A096477, A096478, A096479, A096480, A096482.

Programs

Mathematica

Prime[Table[Min[Flatten[Position[Table[Prime[Prime[n]+1]- Prime[Prime[n]], {n, 1, 10000}], 2*j]]], {j, 1, 100}]]

PARI

{m=42;for(n=1,m,k=1;while((prime(prime(k)+1)-prime(prime(k)))!=2*n,k++);print1(prime(k),","))} \\ Klaus Brockhaus, Jun 27 2004

Extensions

a(31)-a(42) from Klaus Brockhaus, Jun 27 2004