login
A365420
Pick any pair of adjacent digits in a(n); their absolute first difference is present in a(n).
0
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 20, 21, 24, 30, 36, 40, 42, 48, 50, 60, 63, 70, 80, 84, 90, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 120, 121, 123, 124, 132, 143, 154, 165, 176, 187, 198, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 212, 213, 220, 231, 240, 242
OFFSET
1,3
EXAMPLE
a(11) = 10 and 1 - 0 = 1 is present in a(11);
a(12) = 12 and the absolute difference 1 - 2 = 1 is present in a(12);
a(13) = 20 and 2 - 0 = 2 is present in a(13);
a(14) = 21 and 2 - 1 = 1 is present in a(14);
a(60) = 210 and both 2 - 1 = 1 and 1 - 0 = 1 are present in a(60); etc.
MATHEMATICA
Select[Range[0, 250], ContainsAll[IntegerDigits@#, Flatten[Abs@*Differences/@ Partition[IntegerDigits@#, 2, 1]]]&] (* Giorgos Kalogeropoulos, Sep 05 2023 *)
CROSSREFS
Cf. A338855.
Sequence in context: A357769 A180468 A271955 * A342650 A328273 A342262
KEYWORD
base,nonn
AUTHOR
Eric Angelini, Sep 03 2023
STATUS
approved