Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #19 Jul 31 2017 12:57:30
%S 1,2,23,223,233,237,2237,2337,22337,23137,23337,23373,23797,223373,
%T 223797,231373,233137,233797,2233797,2313797,2331373,2333797,2337379,
%U 2337397,2353797,22353797,22373797,23137397,23173797,23313797,23353797,23373797
%N Indices of records in A288818.
%C If one assumes that larger terms begin with 22 or 23, then a(54)-a(64) are: 223373733797, 223537373797, 231337373797, 231353673797, 231353733797, 231373733797, 233137337397, 233537373797, 233753733797, 235313733797, and 235373733797. - _Hans Havermann_, Jul 31 2017
%H Giovanni Resta, <a href="/A288820/b288820.txt">Table of n, a(n) for n = 1..53</a>
%t 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); L = {1}; k = 1; bst = 0; While[Length@L < 18, v = a[++k]; If[v > bst, AppendTo[L, k]; bst = v]]; L (* _Giovanni Resta_, Jun 19 2017 *)
%Y Cf. A288818, A288819 (records' value), A080670.
%K nonn,base
%O 1,2
%A _Hans Havermann_, Jun 17 2017