login
A082937
Palindromes divisible by each of their digits
1
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 111, 212, 222, 333, 424, 444, 515, 555, 636, 666, 777, 848, 888, 999, 1111, 1771, 2112, 2222, 2772, 3333, 4224, 4444, 5115, 5555, 5775, 6336, 6666, 7777, 8448, 8888, 9999, 11111, 11711, 13131, 17171
OFFSET
1,2
LINKS
EXAMPLE
424 is divisible by both 4 and 2.
MATHEMATICA
Select[Range[20000], PalindromeQ[#]&&FreeQ[IntegerDigits[#], 0]&&Union[Mod[ #, IntegerDigits[ #]]]=={0}&] (* Harvey P. Dale, Feb 08 2024 *)
PROG
(PARI) isok(n) = {my(d=digits(n)); if ((d == Vecrev(d)) && vecmin(d), d = Set(d); for (i=1, #d, if (n % d[i], return(0)); ); return (1); ); return (0); } \\ Michel Marcus, May 26 2019
CROSSREFS
Intersection of A002113 (palindromes in base 10) and A034838.
Subsequence of A052382 (zeroless numbers).
Sequence in context: A353729 A227001 A248954 * A214019 A160818 A244514
KEYWORD
base,nonn
AUTHOR
Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 24 2003
EXTENSIONS
More terms from Michel Marcus, May 26 2019
Definition clarified by Harvey P. Dale, Feb 08 2024
STATUS
approved