A343718 Record values in A343717.

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

Offset: 1

Author

Jon E. Schoenfield, May 17 2021

Keywords

• nonn
• base
• more
• hard

Links

• Lucas A. Brown, Python program.

Crossrefs

Cf. A343717, A343719.

Programs

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 *)

Python

# see linked program in A343717

Extensions

a(20)-a(23) from Michael S. Branicky, May 18 2021

a(24) from Michael S. Branicky, May 19 2021

a(25)-a(31) from Chai Wah Wu, May 25 2021

a(32) from Lucas A. Brown, Dec 27 2022