A377439 Least integer k which, by a process analogous to the Keith numbers, reach k - n.
14, 18, 10, 11, 12, 10, 11, 10, 10, 10, 20, 27, 22, 25, 20, 23, 20, 21, 20, 38, 32, 30, 31, 34, 30, 32, 31, 30, 40, 47, 41, 45, 40, 43, 42, 41, 40, 58, 51, 56, 50, 54, 53, 52, 51, 50, 61, 67, 60, 65, 64, 63, 62, 61, 60, 78, 70, 76, 75, 74, 73, 72, 71, 70, 80, 87
Offset: 0
Examples
a(6) = 11 because 1 + 1 = 2, 1 + 2 = 3, 2 + 3 = 5 that is 11 - 6.
Links
- Paolo P. Lava, Table of n, a(n) for n = 0..1000
Programs
-
Maple
with(numtheory): P:=proc(q, h) local a, b, c, j, k, n, t, v; v:=array(1..h); c:=[]; for j from 0 to 65 do for n from 10 to q do a:=n; b:=length(a); for k from 1 to b do v[b-k+1]:=(a mod 10); a:=trunc(a/10); od; t:=b+1; v[t]:=add(v[k], k=1..b); while v[t]