|
4, 6, 8, 12, 14, 19, 22, 25, 27, 29, 31, 38, 44, 48, 50, 59, 63, 65, 70, 75, 78, 85, 88, 90, 93, 95, 112, 117, 122, 131, 134, 136, 143, 147, 149, 151, 153, 155, 159, 163, 169, 181, 183, 198, 207, 211, 213, 224, 226, 229, 235, 237, 244, 247, 249, 251
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[2, 300], 4 == (Prime[# + 1] - Prime[#]) &] (* Vincenzo Librandi, Apr 28 2015 *)
|
|
PROG
|
(Magma) [n: n in [0..300] | NthPrime(n+1) - NthPrime(n) eq 4]; // Vincenzo Librandi, Apr 28 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|