A046359 - OEIS

%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