1,1

Amiram Eldar, Table of n, a(n) for n = 1..10000

12 is included because 12 = 2^2 * 3^1 and 2+3 > 2+1.

sdfQ[n_]:=Module[{fi=Transpose[FactorInteger[n]]}, Total[fi[[1]]] > Total[ fi[[2]]]]; Select[Range[80], sdfQ] (* Harvey P. Dale, Jul 23 2013 *)

Cf. A068935, A068936, A054411, A068937.

Sequence in context: A074492 A059307 A159635 * A166937 A039250 A135130

Adjacent sequences: A068935 A068936 A068937 * A068939 A068940 A068941

nonn

Reinhard Zumkeller, Mar 08 2002

More terms from David Wasserman, Jun 17 2002

approved