OFFSET
1,2
EXAMPLE
1*1' = 1*0 = 0, so 1 is a term.
34*34' = 34*19 = 646, so 34 is a term.
49*49' = 49*14 = 686, so 49 is a term.
MAPLE
d:= n-> n*add(i[2]/i[1], i=ifactors(n)[2]):
q:= n-> not isprime(n) and StringTools[IsPalindrome](""||(n*d(n))):
select(q, [$1..3000000])[]; # Alois P. Heinz, Jan 29 2023
MATHEMATICA
d[0] = d[1] = 0; d[n_] := n * Plus @@ ((Last[#]/First[#]) & /@ FactorInteger[n]); Select[Range[3*10^6], ! PrimeQ[#] && PalindromeQ[# * d[#]] &] (* Amiram Eldar, Jan 29 2023 *)
PROG
(Magma) f:=func<h |h le 1 select 0 else h*(&+[Factorisation(h)[i][2] /
Factorisation(h)[i][1]: i in [1..#Factorisation(h)]])>; pal:=func<n|Intseq(n) eq Reverse(Intseq(n))>; [n:n in [1..3000000]|not IsPrime(n) and pal(n*Floor(f(n)))];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Jan 29 2023
STATUS
approved