A365420 Pick any pair of adjacent digits in a(n); their absolute first difference is present in a(n).

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

Links

Table of n, a(n) for n=1..66.

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

Adjacent sequences: A365417 A365418 A365419 * A365421 A365422 A365423

Keyword

base,nonn

Author

Eric Angelini, Sep 03 2023

Status

approved