|
|
|
|
2, 541, 557, 563, 569, 587, 601, 613, 617, 647, 653, 659, 661, 677, 709, 787, 809, 929, 2141, 2203, 2221, 2251, 2281, 2333, 2347, 2357, 2381, 2389, 2393, 2417, 2467, 2473, 2617, 2659, 2699, 2707, 2713, 2729, 2837, 2851, 2857, 2897, 2953, 3221, 3347, 3461
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
With[{b = DigitCount[Prime[Range[600]], 2, 1]}, Join[{2}, Select[Prime[Position[ 2*b - 1 - FoldList[Max, b], _?(# > 0 &)] // Flatten], Differences[DigitCount[#, 2]][[1]] >= 0 &]]] (* Amiram Eldar, Jul 27 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|