A082947 Palindromes not divisible by any of their digits.

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.

Links

Table of n, a(n) for n=1..48.

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

Adjacent sequences: A082944 A082945 A082946 * A082948 A082949 A082950

Keyword

easy,nonn,base

Author

Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 08 2003

Status

approved