%I #6 Nov 14 2019 12:32:48
%S 101,121,123,131,135,141,147,151,159,161,171,181,191,202,210,212,232,
%T 234,242,246,252,258,262,272,282,292,303,313,321,323,343,345,353,357,
%U 363,369,373,383,393,404,414,420,424,432,434
%N Numbers with at least three digits such that the absolute differences between successive digits forms a palindrome without leading zeros.
%C The subset of A086918 that has the first two digits distinct.
%H Harvey P. Dale, <a href="/A328996/b328996.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%Y Cf. A086918.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Nov 14 2019
|