login
A096481
a(n)=A000040[A096480(n)].
2
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,1
MATHEMATICA
Prime[Table[Min[Flatten[Position[Table[Prime[Prime[n]+1]- Prime[Prime[n]], {n, 1, 10000}], 2*j]]], {j, 1, 100}]]
PROG
(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
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 23 2004
EXTENSIONS
a(31) - a(42) from Klaus Brockhaus, Jun 27 2004
STATUS
approved