A328996 Numbers with at least three digits such that the absolute differences between successive digits forms a palindrome without leading zeros.

101, 121, 123, 131, 135, 141, 147, 151, 159, 161, 171, 181, 191, 202, 210, 212, 232, 234, 242, 246, 252, 258, 262, 272, 282, 292, 303, 313, 321, 323, 343, 345, 353, 357, 363, 369, 373, 383, 393, 404, 414, 420, 424, 432, 434

Offset

1,1

Comments

The subset of A086918 that has the first two digits distinct.

Links

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

Mathematica

pddQ[n_]:=Module[{idn=IntegerDigits[n]}, idn[[1]]!=idn[[2]]&&PalindromeQ[ FromDigits[Abs[Differences[idn]]]]]; Select[Range[100, 500], pddQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 14 2019 *)

Crossrefs

Cf. A086918.

Sequence in context: A038370 A084430 A182693 * A046075 A088882 A261453

Adjacent sequences: A328993 A328994 A328995 * A328997 A328998 A328999

Keyword

nonn,base

Author

N. J. A. Sloane, Nov 14 2019

Status

approved