|
%I #17 Oct 18 2019 04:05:47
%S 27,627,3861,4543,5445,7881,8085,18711,21091,22275,23463,25575,33495,
%T 36729,39875,49335,53295,60297,69575,77319,79475,95095,113135,120835,
%U 126665,129129,134343,142191,152163,162393,166383,166419,169275,175545
%N Odd numbers divisible by the palindromic sum of their prime factors (counted with multiplicity).
%e 60297 = 3 * 101 * 199 -> Sum of factors is palindrome 303 -> 60297 / 303 = 199 exactly.
%t palQ[n_]:= Reverse[x=IntegerDigits[n]] == x; Select[Range[9, 175549, 2], !PrimeQ[#] && palQ[y=Total[Times@@@FactorInteger[#]]] && IntegerQ[#/y]&] (* _Jayanta Basu_, Jun 05 2013 *)
%Y Cf. A046358, A046360.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Jun 15 1998
%E Offset 1 from _Michel Marcus_, Oct 18 2019
|
