A342125 Records in A110765.

2, 6, 10, 30, 70, 210, 770, 2310, 10010, 30030, 34034, 170170, 510510, 646646, 3233230, 9699690, 14872858, 74364290, 223092870, 431312882, 2156564410, 6469693230, 13370699342, 66853496710, 200560490130, 494715875654, 2473579378270, 7420738134810, 20283350901814

Offset: 1

Author

Michael De Vlieger, Feb 28 2021

Keywords

• nonn
• base

Comments

A002110 is a subsequence.

Links

• Michael De Vlieger, Annotated log-log plot of A110765(n) for 1 <= n <= 128 showing records in red.
• Michael De Vlieger, Log-log plot of A110765(n) for 1 <= n <= 2^20 showing records in red.

Crossrefs

Cf. A002110, A110765.

Programs

Mathematica

Block[{s = Array[Times @@ Prime@ Flatten@ Position[#, 1] &@ IntegerDigits[#, 2] &, 2^12]}, Union@ FoldList[Max, s]]