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
KEYWORD
nonn,base,more
AUTHOR
Hans Havermann, Jun 17 2017
EXTENSIONS
a(46)-a(53) from Giovanni Resta, Jun 20 2017
STATUS
approved