A084353 Palindromes such that the product of the nonzero digits + 1 is prime.
1, 2, 4, 6, 11, 22, 44, 66, 101, 111, 121, 141, 161, 202, 212, 232, 242, 272, 292, 323, 343, 383, 404, 414, 464, 474, 545, 565, 606, 616, 626, 636, 656, 747, 838, 848, 878, 898, 929, 969, 1001, 1111, 1221, 1441, 1661, 2002, 2112, 2222, 2332, 2552, 2772
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A084979.
Programs
-
Mathematica
Select[Range[3000],PalindromeQ[#]&&PrimeQ[1+Times@@DeleteCases[ IntegerDigits[ #],0]]&] (* Harvey P. Dale, Dec 17 2021 *)