cp's OEIS Frontend

A349316 Where records occur in A348674.

%I A349316 #27 Jun 22 2023 17:10:46
%S A349316 0,10,100,120,1010,1020,1120,1230,10120,10130,10230,10240,11230,11240,
%T A349316 12240,12350,101130,101240,101350,102240,102350,102460,112240,112350,
%U A349316 112460,122360,122470,123470,123580,1011240,1011250,1011350,1011360,1012250,1012360,1012460
%N A349316 Where records occur in A348674.
%H A349316 Alois P. Heinz, <a href="/A349316/b349316.txt">Table of n, a(n) for n = 1..105</a>
%F A349316 A349315(a(n)) = 1.
%F A349316 A348674(a(n)) < A348674(a(n+1)).
%p A349316 b:= proc(s) option remember; (n-> {parse(s), seq(seq(seq(x+y,
%p A349316       y=b(s[i+1..n])), x=b(s[1..i])), i=1..n-1)})(length(s))
%p A349316     end:
%p A349316 a:= proc(n) option remember; local k, t; t:=nops(b(""||(a(n-1))));
%p A349316       for k from 1+a(n-1) while nops(b(""||k))<=t do od; k
%p A349316     end: a(1):=0:
%p A349316 seq(a(n), n=1..29);
%Y A349316 Cf. A348674, A349315.
%K A349316 nonn,base
%O A349316 1,2
%A A349316 _Alois P. Heinz_, Nov 14 2021