login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
Lucas A. Brown, Python program.
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
Sequence in context: A126112 A194373 A156210 * A264803 A117790 A014447
KEYWORD
nonn,base,more,hard
AUTHOR
Jon E. Schoenfield, May 17 2021
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
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 04:58 EDT 2024. Contains 371235 sequences. (Running on oeis4.)