OFFSET
1,3
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Palindromic Number
MATHEMATICA
ok[n_, w_: {}] := n <= 1 || AnyTrue[ Divisors@ n, ! MemberQ[w, #] && PalindromeQ[#] && ok[n/#, Append[w, #]] &]; Select[Range[0, 140], ok] (* Giovanni Resta, Apr 15 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Apr 15 2020
STATUS
approved