OFFSET
1,1
COMMENTS
Numbers n such that n = A008472(n)*A001414(n) (= sum of distinct prime factors of n, times sum of prime factors of n with repetition). - M. F. Hasler, May 05 2013
LINKS
Max Alekseyev, Proof of finiteness of A073396, SeqFan Mailing List, May 4, 2013.
FORMULA
a(n) = A073395(a(n)).
EXAMPLE
MATHEMATICA
okQ[n_] := n>1 && With[{f = FactorInteger[n]}, n == Total[Times @@@ f]* Total[f[[All, 1]]]];
Select[Range[1000], okQ] (* Jean-François Alcover, Apr 06 2021 *)
CROSSREFS
KEYWORD
nonn,full,fini,bref
AUTHOR
Reinhard Zumkeller, Jul 30 2002
EXTENSIONS
Proof that there are no further terms added by Max Alekseyev, May 04 2013
STATUS
approved