

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A266885 A253368 A033524 * A082948 A182554 A217120
Adjacent sequences: A082944 A082945 A082946 * A082948 A082949 A082950


KEYWORD

easy,nonn,base,changed


AUTHOR

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


STATUS

approved



