|
|
|
|
3, 67, 31, 401, 241, 211, 773, 2221, 1913, 7649, 3229, 1669, 2477, 10009, 5749, 33647, 9973, 14107, 60821, 130729, 16141, 15683, 113233, 86629, 95651, 74959, 35617, 388403, 214993, 557093, 248909, 637003, 296843, 448451, 186481, 1145899
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Both a[n] and a[n]+2n are primes while Pi[a(n)]=A096481(n),Pi[Pi[a(n)]]=A096480(n).
|
|
MATHEMATICA
|
Prime[Prime[Min[Flatten[Position[Table[Prime[Prime[n]+1]- Prime[Prime[n]], {n, 1, 5000}], 2*j]]], {j, 1, 100}]]]
|
|
PROG
|
(PARI) {m=36; for(n=1, m, k=1; while((prime(prime(k)+1)-prime(prime(k)))!=2*n, k++); print1(prime(prime(k)), ", "))} - Klaus Brockhaus, Jun 27 2004
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|