OFFSET
1,2
COMMENTS
These terms are the fixed points of A087999.
All the palindromes are in the sequence.
Now, if m is non-palindromic, then m is a term iff m = q_1^r_1 *...* q_i^r_i *...* q_k^r_k, where q_1 <...<q_i <...<q_k are primes, k>=2, r_i >= 1 and every divisor q_i^r_i is a palindrome; these q_i^r_i are in A084092 (see examples).
The first 40 terms, from 1 to 99, are exactly the 40 smallest divisors of 27720, hence the first 40 terms of A178864, but this sequence, which is infinite, is not a duplicate. Also, 27720 is in this sequence.
EXAMPLE
2, 5, 131 are terms as palindromic primes.
111 = 3 * 37 is a term because 111 is a palindrome, so LCM(1,3,37,111) = 111.
27720 = 2^3 * 3^2 * 5 * 7 * 11, every 2^3=8, 3^2=9, 5, 7, 11 is a palindrome so 27720 is another term, no palindromic.
MATHEMATICA
Select[Range[200], LCM @@ Select[Divisors[#], PalindromeQ] == # &] (* Amiram Eldar, Apr 15 2020 *)
PROG
(PARI) ispal(x) = my(d=digits(x)); d == Vecrev(d);
isok(n) = lcm(select(ispal, divisors(n))) == n; \\ Michel Marcus, Apr 16 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Apr 15 2020
STATUS
approved