login
A288819
Record maxima in A288818.
2
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,3
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
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 *)
CROSSREFS
Cf. A288818, A288820 (records' position), A080670.
Sequence in context: A026487 A130788 A376601 * A087743 A073568 A094576
KEYWORD
nonn,base,more
AUTHOR
Hans Havermann, Jun 17 2017
EXTENSIONS
a(46)-a(53) from Giovanni Resta, Jun 20 2017
STATUS
approved