login
Where records occur in A348674.
3

%I #27 Jun 22 2023 17:10:46

%S 0,10,100,120,1010,1020,1120,1230,10120,10130,10230,10240,11230,11240,

%T 12240,12350,101130,101240,101350,102240,102350,102460,112240,112350,

%U 112460,122360,122470,123470,123580,1011240,1011250,1011350,1011360,1012250,1012360,1012460

%N Where records occur in A348674.

%H Alois P. Heinz, <a href="/A349316/b349316.txt">Table of n, a(n) for n = 1..105</a>

%F A349315(a(n)) = 1.

%F A348674(a(n)) < A348674(a(n+1)).

%p b:= proc(s) option remember; (n-> {parse(s), seq(seq(seq(x+y,

%p y=b(s[i+1..n])), x=b(s[1..i])), i=1..n-1)})(length(s))

%p end:

%p a:= proc(n) option remember; local k, t; t:=nops(b(""||(a(n-1))));

%p for k from 1+a(n-1) while nops(b(""||k))<=t do od; k

%p end: a(1):=0:

%p seq(a(n), n=1..29);

%Y Cf. A348674, A349315.

%K nonn,base

%O 1,2

%A _Alois P. Heinz_, Nov 14 2021