|
|
|
|
32, 42, 46, 47, 56, 58, 61, 66, 71, 74, 76, 97, 103, 114, 118, 126, 127, 128, 161, 177, 180, 186, 195, 205, 232, 233, 267, 271, 290, 321, 326, 329, 331, 347, 359, 368, 370, 372, 383, 416, 423, 432, 437, 456, 508, 518, 520, 593, 594, 607, 633, 666, 675, 709
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A072473: a(n) = p(2n) - p(n), where p(k) is the k-th prime.
|
|
LINKS
|
|
|
MATHEMATICA
|
s={}; Do[If[Prime[2n]-Prime[n]==Prime[2(n+1)]-Prime[n+1], AppendTo[s, n]], {n, 1000}]; s
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|