OFFSET
1,1
COMMENTS
REFERENCES
Suggested by Amarnath Murthy.
EXAMPLE
969 is a member of the sequence since it is neither divisible by 9 nor 6 but 8778 is not since it is divisible by 7.
MATHEMATICA
DeleteCases[Select[Range[9000], PalindromeQ], _?(AnyTrue[#/Union[ IntegerDigits[ #]], IntegerQ]&)]//Quiet (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 05 2018 *)
PROG
(PARI) isok(n) = {d = digits(n); if (Vecrev(d) == d, for (i=1, #d, if (d[i] && !(n % d[i]), return (0)); ); return (1); ); } \\ Michel Marcus, Mar 07 2015
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 08 2003
STATUS
approved