The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A046360 Composite palindromes divisible by the palindromic sum of their prime factors (counted with multiplicity). 2
 4, 5445, 234432, 585585, 888888, 951159, 999999, 1345431, 2554552, 4620264, 5842485, 6151516, 9704079, 12333321, 40199104, 42266224, 42666624, 44088044, 46355364, 63599536, 63633636, 420838024, 424848424, 631949136, 649363946 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS EXAMPLE 649363946 = 2 * 7 * 11 * 83 * 101 * 503 -> Sum of factors is palindrome 707 -> 649363946 / 707 = 918478 exactly. MATHEMATICA palQ[n_]:= Reverse[x=IntegerDigits[n]] == x; t={}; Do[If[!PrimeQ[n] && And@@palQ/@{n, y=Total[Times@@@FactorInteger[n]]} && IntegerQ[n/y], AppendTo[t, n]], {n, 4, 6*10^6}]; t (* Jayanta Basu, Jun 05 2013 *) pspfQ[n_]:=Module[{sf=Total[Times@@@FactorInteger[n]]}, CompositeQ[ n] && AllTrue[{n, sf}, PalindromeQ]&&IntegerQ[n/sf]]; Select[Range[ 2, 65*10^7], pspfQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 24 2019 *) CROSSREFS Cf. A046358, A046359. Sequence in context: A306962 A102205 A283663 * A079232 A137045 A077258 Adjacent sequences:  A046357 A046358 A046359 * A046361 A046362 A046363 KEYWORD nonn,base AUTHOR Patrick De Geest, Jun 15 1998 EXTENSIONS Definition clarified by Harvey P. Dale, Nov 24 2019 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 22 10:18 EDT 2020. Contains 337950 sequences. (Running on oeis4.)