|
|
A216311
|
|
The prime ending in 7 is the only prime in a decade.
|
|
1
|
|
|
97, 127, 307, 367, 397, 457, 487, 557, 587, 727, 787, 797, 877, 907, 937, 967, 1087, 1117, 1447, 1567, 1597, 1637, 1657, 1777, 1847, 1987, 2437, 2467, 2617, 2647, 2707, 2767, 2777, 2887, 2897, 2917, 2927, 3037, 3137, 3217, 3407, 3457, 3607, 3727, 3847
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
t = {}; Do[ps = Select[Range[10*n, 10*n + 9], PrimeQ]; If[ps == {10*n + 7}, AppendTo[t, ps[[1]]]], {n, 0, 529}]; t (* T. D. Noe, Sep 04 2012 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(4000) | p mod 10 eq 7 and IsOne(#PrimesInInterval(10*t+1, 10*t+9)) where t is Floor(p/10)]; // Bruno Berselli, Sep 14 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|