Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A082947
Palindromes not divisible by any of their digits.
1
323, 343, 353, 373, 383, 434, 454, 474, 494, 646, 656, 676, 686, 727, 737, 747, 757, 767, 787, 797, 838, 858, 868, 878, 898, 929, 949, 959, 969, 979, 989, 3223, 3443, 3553, 3883, 4334, 4554, 4994, 6446, 6556, 6886, 7227, 7337, 7447, 7557, 7667, 7887, 7997
OFFSET
1,1
COMMENTS
Intersection of A002113 and A038772. - Michel Marcus, Mar 07 2015
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
Cf. A002113 (palindromes in base 10), A038772 (numbers not divisible by any of their digits).
Sequence in context: A309030 A337781 A340099 * A082948 A182554 A340118
KEYWORD
easy,nonn,base
AUTHOR
Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 08 2003
STATUS
approved