A288819 Record maxima in A288818.

0, 1, 3, 4, 5, 6, 8, 12, 13, 17, 18, 21, 22, 23, 25, 30, 34, 41, 45, 54, 58, 60, 62, 66, 75, 80, 82, 83, 88, 104, 110, 124, 131, 147, 163, 166, 173, 194, 220, 228, 233, 257, 290, 313, 334, 350, 359, 365, 412, 468, 477, 503, 520

Offset: 1

Author

Hans Havermann, Jun 17 2017

Keywords

• nonn
• base
• more

Comments

If one assumes that larger records occur at A288818 indices beginning with 22 or 23, then a(54)-a(64) are: 528, 534, 538, 542, 636, 657, 687, 728, 764, 768, and 847. - Hans Havermann, Jul 31 2017

Crossrefs

Cf. A288818, A288820 (records' position), A080670.

Programs

Mathematica

ric[d_, lp_] := Block[{p, e, i, j, n = Length@d}, If[n == 0, cnt++, If[d[[1]] > 0, Do[p = FromDigits@ Take[d, i]; If[p > lp && PrimeQ@p, ric[Take[d, i - n], p]; Do[e = Take[d, {i + 1, j}]; If[e[[1]] > 0 && e != {1}, ric[Take[d, j - n], p]], {j, i+1, n}]], {i, n}]]]]; a[n_] := (cnt = 0; ric[ IntegerDigits@ n, 1]; cnt); Union@ FoldList[Max, Array[a, 10^6]] (* Michael De Vlieger, Jun 19 2017, after Giovanni Resta at A288818 *)

Extensions

a(46)-a(53) from Giovanni Resta, Jun 20 2017