|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
Subsequence of A052382 (zeroless numbers).
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 24 2003
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|