OFFSET
1,2
LINKS
Eric Angelini, Échecs et Maths, Personal blog, bottom of page.
EXAMPLE
n = 1 is a substring of the sum 1 + 9 = 10
n = 2 is a substring of the sum 9 + 3 = 12
n = 3 is a substring of the sum 3 + 10 = 13
n = 4 is a substring of the sum 10 + 4 = 14
n = 5 is a substring of the sum 4 + 11 = 15
n = 6 is a substring of the sum 11 + 5 = 16
...
n = 10 is a substring of the sum 13 + 87 = 100, etc.
MAPLE
R:= 1: x:= 1: S:= {1}:
for n from 1 to 100 do
ns:= convert(n, string);
for y from 1 do
if member(y, S) then next fi;
if SearchText(ns, convert(x+y, string)) <> 0 then
R:= R, y; x:= y; S:= S union {y}; break
fi
od
od:
R; # Robert Israel, Jul 04 2023
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Module[{k = 2}, While[! FreeQ[Array[a, n - 1], k] || ! StringContainsQ[ToString[a[n - 1] + k], ToString[n - 1]], k++]; k]; Array[a, 100] (* Amiram Eldar, Jul 04 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini, Jul 03 2023
STATUS
approved