A334140 Numbers that can be written as a product of distinct palindromes.

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

Author

Ilya Gutkovskiy, Apr 15 2020

Keywords

• nonn
• base

Links

• David A. Corneth, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Palindromic Number
• Index entries for sequences related to palindromes

Crossrefs

Cf. A002113, A033620, A084034, A115683, A140332, A334131.

Programs

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 *)