|
|
A216295
|
|
Values of k such that 10k + 1 is the only prime between 10k and 10k + 9.
|
|
1
|
|
|
18, 21, 24, 42, 63, 66, 69, 81, 102, 105, 117, 120, 138, 147, 151, 153, 180, 181, 183, 195, 216, 222, 225, 231, 252, 262, 273, 286, 297, 300, 312, 319, 327, 333, 336, 339, 357, 393, 411, 420, 423, 426, 462, 469, 480, 483, 486, 501, 526, 528, 535, 553, 558
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
t = {}; Do[ps = Select[Range[10*n, 10*n + 9], PrimeQ]; If[ps == {10*n + 1}, AppendTo[t, n]], {n, 0, 669}]; t (* T. D. Noe, Sep 03 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|