login
A334140
Numbers that can be written as a product of distinct palindromes.
1
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 16, 18, 20, 21, 22, 24, 27, 28, 30, 32, 33, 35, 36, 40, 42, 44, 45, 48, 54, 55, 56, 60, 63, 64, 66, 70, 72, 77, 80, 84, 88, 90, 96, 99, 101, 105, 108, 110, 111, 112, 120, 121, 126, 131, 132, 135, 140
OFFSET
1,3
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