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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 14 2019
STATUS
approved