login
A046359
Odd numbers divisible by the palindromic sum of their prime factors (counted with multiplicity).
2
27, 627, 3861, 4543, 5445, 7881, 8085, 18711, 21091, 22275, 23463, 25575, 33495, 36729, 39875, 49335, 53295, 60297, 69575, 77319, 79475, 95095, 113135, 120835, 126665, 129129, 134343, 142191, 152163, 162393, 166383, 166419, 169275, 175545
OFFSET
1,1
EXAMPLE
60297 = 3 * 101 * 199 -> Sum of factors is palindrome 303 -> 60297 / 303 = 199 exactly.
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A212670 A099753 A231292 * A223500 A060603 A116988
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Offset 1 from Michel Marcus, Oct 18 2019
STATUS
approved