OFFSET
1,1
COMMENTS
The last term of this sequence is a(1048)=9409.
Prime factors are taken with multiplicity. - Harvey P. Dale, Dec 05 2015
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..1048 (full sequence)
MAPLE
isA036328 := 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))=4, n, NULL): end: l:=[seq(isA036328(n), n=2..9999)]; # Nathaniel Johnston, Jun 22 2011
MATHEMATICA
jpf4Q[n_]:=Length[Flatten[IntegerDigits/@Table[#[[1]], {#[[2]]}]&/@FactorInteger[n]]]==4; Select[Range[300], jpf4Q] (* Harvey P. Dale, Dec 05 2015 *)
CROSSREFS
KEYWORD
nonn,base,fini,full,easy
AUTHOR
Patrick De Geest, Dec 15 1998
STATUS
approved