A082937 Palindromes divisible by each of their digits.
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
Examples
424 is divisible by both 4 and 2.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..300
Crossrefs
Programs
-
Mathematica
Select[Range[20000],PalindromeQ[#]&&FreeQ[IntegerDigits[#],0]&&Union[Mod[ #,IntegerDigits[ #]]]=={0}&] (* Harvey P. Dale, Feb 08 2024 *)
-
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
Extensions
More terms from Michel Marcus, May 26 2019
Definition clarified by Harvey P. Dale, Feb 08 2024