A046367 Odd numbers divisible by the palindromic sum of its palindromic prime factors (counted with multiplicity).
27, 5445, 8085, 18711, 22275, 658845, 868095, 978285, 1164625, 1452605, 2695275, 2898693, 3622365, 4002075, 4222911, 4764375, 5671875, 5942475, 7074375, 8421875, 8582203, 9261945, 10637825, 11026125, 13752585, 16372125, 17275545
Offset: 0
Examples
8582203 = 7^3 * 131 * 191 -> Sum of factors is 343 -> 8582203 / 343 = 25021 exactly.
Crossrefs
Cf. A046366.
Programs
-
Mathematica
palQ[n_]:=Reverse[x=IntegerDigits[n]]==x; t={}; Do[If[!PrimeQ[n]&&And@@palQ/@Join[{y=Total[Times@@@(x=FactorInteger[n])]},First/@x]&&IntegerQ[n/y],AppendTo[t,n]],{n,9,6*10^6,2}]; t (* Jayanta Basu, Jun 05 2013 *)