|
|
A216309
|
|
The prime ending in 1 is the only prime in a decade.
|
|
1
|
|
|
181, 211, 241, 421, 631, 661, 691, 811, 1021, 1051, 1171, 1201, 1381, 1471, 1511, 1531, 1801, 1811, 1831, 1951, 2161, 2221, 2251, 2311, 2521, 2621, 2731, 2861, 2971, 3001, 3121, 3191, 3271, 3331, 3361, 3391, 3571, 3931, 4111, 4201, 4231, 4261, 4621, 4691
(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 + 1}, AppendTo[t, ps[[1]]]], {n, 0, 588}]; t (* T. D. Noe, Sep 04 2012 *)
Select[10*Range[500]+1, PrimeQ[#]&&AllTrue[#+{2, 6, 8}, CompositeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 01 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|