OFFSET
1,1
COMMENTS
The last term of this sequence is a(96411)=994009.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
isA036330 := proc(n) local d: d:=ifactors(n)[2]: return `if`(not isprime(n) and add(length(d[j][1])*d[j][2], j=1..nops(d))=6, n, NULL): end: seq(isA036330(n), n=2..752); # Nathaniel Johnston, Jun 22 2011
MATHEMATICA
pf6Q[n_]:=!PrimeQ[n]&&Total[Last[#]IntegerLength[First[#]]&/@FactorInteger[ n]]==6; Select[Range[800], pf6Q] (* Harvey P. Dale, Jun 19 2012 *)
CROSSREFS
KEYWORD
nonn,base,fini,easy
AUTHOR
Patrick De Geest, Dec 15 1998
STATUS
approved