A377439 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

LINKS

Table of n, a(n) for n=0..65.

EXAMPLE

a(6) = 11 because 1 + 1 = 2, 1 + 2 = 3, 2 + 3 = 5 that is 11 - 6.

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]<n-j do t:=t+1; v[t]:=add(v[k], k=t-b..t-1); od; if v[t]=n-j then c:=[op(c), n];