login
A269002
Indices of records in the integer sums 1/x0 + x2/x1 +...+ x0/xq of A248954.
0
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
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
KEYWORD
nonn,base,more
AUTHOR
Paolo P. Lava, Feb 17 2016
STATUS
approved