A269002 - OEIS

%I #13 Feb 21 2016 20:02:04

%S 1,11,111,142,1142,11142,12316,13193,16196,116196,161929,1161929,

%T 1616193,1618183,1619192,11619192,111619192,129161919,146191919,

%U 191919193

%N Indices of records in the integer sums 1/x0 + x2/x1 +...+ x0/xq of A248954.

%C The corresponding sum values are 1, 2, 3, 5, 6, 7, 10, 13, 16, 17, 20, 21, 22, 23, 25, 26, 27, 31, 33, 37

%p P:=proc(q) local a,b,c,k,ok,t; global n; t:=0; for n from 1 to q do ok:=1; a:=n;

%p for k from 1 to ilog10(n)+1 do if (a mod 10)=0 then ok:=0; break; else a:=trunc(a/10); fi; od;

%p if ok=1 then a:=0; b:=n;

%p for k from 1 to ilog10(n) do c:=b mod 10;  b:=trunc(b/10); a:=a+c/(b mod 10); od;

%p b:=a+trunc(n/10^ilog10(n))/(n mod 10);

%p if type(b,integer) and b>t then t:=b; print(n); fi; fi; od; end: P(10^9);

%Y Cf. A248954.

%K nonn,base,more

%O 1,2

%A _Paolo P. Lava_, Feb 17 2016