A334533 Numbers k such that k*sod(k) and k/sod(k) are both palindromes, where sod(k) denotes the sum of digits of k (A007953).
1, 2, 3, 42, 26664, 2640264, 26400264, 264000264, 2640000264, 26400000264, 264000000264, 2640000000264, 26400000000264, 144689999986441, 154698898896451, 226589999985622, 234779999977432, 243788999887342, 244788898887442, 253698898896352, 254689878986452
Offset: 1
Examples
The sum of digits of 26664 is 24 and 26664*24 = 639936 and 26664/24 = 1111 are palindromes, so 26664 is a term.
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..10001 (n = 1..1000 from Giovanni Resta)
Programs
-
Mathematica
Select[Range[2.7*^6], (s = Plus @@ IntegerDigits[#]; Mod[#, s] == 0 && PalindromeQ[# s] && PalindromeQ[# /s]) &]
-
PARI
ispal(k) = my(d=digits(k)); d==Vecrev(d); isok(k) = my(s=sumdigits(k)); !(k%s) && ispal(k/s) && ispal(k*s); \\ Michel Marcus, May 05 2020
Comments