|
|
A107927
|
|
Smallest number m>n such that some digit of n and some digit of m sum up to 9.
|
|
0
|
|
|
9, 8, 7, 6, 5, 14, 13, 12, 10, 10, 18, 18, 17, 16, 15, 18, 18, 18, 19, 20, 27, 27, 27, 26, 25, 27, 27, 28, 31, 30, 36, 36, 36, 36, 35, 36, 37, 42, 41, 40, 45, 45, 45, 45, 45, 46, 50, 50, 50, 50, 54, 54, 54, 54, 55, 64, 63, 62, 61, 60, 63, 63, 63, 64, 65, 73, 73, 72, 71, 70, 72
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Cf. A107433 (slowest increasing sequence where some digit of a(n) and some digit of a(n+1) sum up to 9).
|
|
LINKS
|
|
|
MATHEMATICA
|
bb={}; Do[id1=IntegerDigits[a]; le1=Length[id1]; Do[id2=IntegerDigits[b]; le2=Length[id2]; If[MemberQ[Flatten[Table[id1[[i]]+id2[[j]], {i, le1}, {j, le2}]], 9], bb=Append[bb, b]; Break[]], {b, a+1, 300}], {a, 0, 130}]; bb
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|