A324041 Nonpalindromic integers with palindromic product of divisors.
26, 49, 2285, 1109111, 3069307, 12028229, 12866669, 110091011, 10207355549, 11010911011, 11100910111, 13579355059, 30101273647, 30693069307, 111283619361
Offset: 1
Examples
Divisors of 26 are : 1,2,13,26 and 1*2*13*26=676.
Programs
-
Mathematica
Select[Range[3200000], !PalindromeQ[#] && PalindromeQ[#^(DivisorSigma[0, #]/2)] &] (* Amiram Eldar, Sep 02 2019 *)
-
PARI
ispal(n) = my(d=digits(n)); d == Vecrev(d); isok(n) = !ispal(n) && ispal(vecprod(divisors(n)));
Extensions
a(8)-a(15) from Giovanni Resta, Sep 04 2019
Comments