A086918 Numbers with at least three digits such that the absolute differences between successive digits forms a palindrome (when leading zeros are omitted).

101, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 121, 123, 131, 135, 141, 147, 151, 159, 161, 171, 181, 191, 202, 210, 212, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 232, 234, 242, 246, 252, 258, 262, 272, 282, 292, 303, 313, 321, 323, 330, 331

Offset: 1

Author

Amarnath Murthy, Sep 18 2003

Keywords

• base
• easy
• nonn

Comments

All numbers from 0 to 99 trivially have the property, so we require at least three digits.

Question: There seems to be a pattern. Can someone find a formula for index of a given member?

Examples

			112 is a member yielding (0)2.
131 and 135 both are members and the palindrome arising in both cases is 22.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A086919.

Programs

Mathematica

Select[Range[100,500],PalindromeQ[FromDigits[Abs[ Differences[ IntegerDigits[ #]]]]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 14 2019 *)

Extensions

Corrected and extended by Harvey P. Dale, Nov 14 2019