|
|
A343718
|
|
Record values in A343717.
|
|
2
|
|
|
1, 3, 7, 11, 29, 43, 47, 73, 103, 113, 149, 337, 509, 643, 719, 1021, 3739, 5507, 8369, 9511, 10531, 11633, 17489, 19081, 22877, 25189, 27109, 34667, 53411, 55117, 65027, 73061
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{s = Array[Block[{m = #!, k = 0}, While[! PrimeQ[10^If[k == 0, 1, IntegerLength[k]]*m + k], k++]; k] &, 250, 0] }, Union@ FoldList[Max, s]] (* Michael De Vlieger, May 17 2021 *)
|
|
PROG
|
(Python) # see linked program in A343717
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more,hard
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|