OFFSET
1,1
COMMENTS
MATHEMATICA
fQ[n_] := Block[{s = {0, 1, 6, 8, 9}, id = IntegerDigits[n]}, If[ Union[ Join[s, id]] == s && (id /. {6 -> 9, 9 -> 6}) == Reverse[id], True, False]]; Select[ Range[0, 89168], fQ[ # ] && ! PalindromeQ[ # ] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, May 19 2017
STATUS
approved