A073396 The number n equals the product of two numbers: sums of prime factors of n, with and without repetition.
16, 27, 150
Offset: 1
Examples
A073395(150) = A073395(2*3*5*5) = A008472(2*3*5*5)*A001414(2*3*5*5) = (2+3+5)*(2+3+5+5) = 10*15 = 150, therefore 150 is a term.
Links
- Max Alekseyev, Proof of finiteness of A073396, SeqFan Mailing List, May 4, 2013.
Programs
-
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 *)
Formula
a(n) = A073395(a(n)).
Extensions
Proof that there are no further terms added by Max Alekseyev, May 04 2013
Comments