login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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

LINKS

Table of n, a(n) for n=1..53.

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: A316091 A026487 A130788 * A087743 A073568 A094576

Adjacent sequences:  A288816 A288817 A288818 * A288820 A288821 A288822

KEYWORD

nonn,base,more

AUTHOR

Hans Havermann, Jun 17 2017

EXTENSIONS

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

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 27 08:16 EDT 2021. Contains 347689 sequences. (Running on oeis4.)