|
|
|
|
11, 19, 43, 97, 163, 191, 223, 457, 877, 1049, 1307, 1987, 2029, 2129, 4217, 6599, 9967, 10357, 18233, 66343, 74573, 95911, 99719, 186551, 196337, 211219, 262469, 277301, 416573, 603487, 994549, 1403137, 4117441, 4805761, 4895789, 5823067, 5842813, 7704409
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
count=0; imin=0; cstop=65; pn=4; While[count<cstop, pn++; np=Prime[pn]; i=0; cp1=np; cp2=np; While[i++; diff=6*i; cp1=np-diff; cp2=np+diff; !(PrimeQ[cp1] && PrimeQ[cp2])]; Print[np]; If[i>imin, imin=i; count++]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|