OFFSET
1,1
COMMENTS
Conjecture: The sequence is infinite.
EXAMPLE
MATHEMATICA
moranQ[n_] := PrimeQ[n / Plus @@ IntegerDigits[n]]; d[n_] := n * Plus @@ ((Last[#]/First[#]) & /@ FactorInteger[n]); Select[Range[120000], And @@ moranQ /@ {#, d[#]} &] (* Amiram Eldar, Nov 20 2021 *)
PROG
(Magma) f:=func<n |n le 1 select 0 else n*(&+[Factorisation(n)[i][2] / Factorisation(n)[i][1]: i in [1..#Factorisation(n)]]) >; moran:=func<n|n mod &+Intseq(n) eq 0 and IsPrime(n div &+Intseq(n))>; [n:n in [2..114000]| moran(n) and moran(Floor(f(n)))];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Nov 20 2021
STATUS
approved