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

1, 11, 111, 142, 1142, 11142, 12316, 13193, 16196, 116196, 161929, 1161929, 1616193, 1618183, 1619192, 11619192, 111619192, 129161919, 146191919, 191919193

Offset

1,2

Comments

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

Links

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

Maple

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;
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;
if ok=1 then a:=0; b:=n;
for k from 1 to ilog10(n) do c:=b mod 10;  b:=trunc(b/10); a:=a+c/(b mod 10); od;
b:=a+trunc(n/10^ilog10(n))/(n mod 10);
if type(b, integer) and b>t then t:=b; print(n); fi; fi; od; end: P(10^9);

Crossrefs

Cf. A248954.

Sequence in context: A039987 A039989 A039990 * A092819 A336523 A209233

Adjacent sequences: A268999 A269000 A269001 * A269003 A269004 A269005

Keyword

nonn,base,more

Author

Paolo P. Lava, Feb 17 2016

Status

approved