|
%I #14 Oct 10 2019 00:18:55
%S 32,48,72,80,88,104,108,112,120,132,136,152,156,162,168,180,184,198,
%T 200,204,220,228,232,234,242,243,248,252,260,270,276,280,286,296,297,
%U 300,306,308,328,330,338,340,342,344,348,351,363,364,372,374,376,378
%N Composite numbers n such that juxtaposition of prime factors of n has length 5.
%C The last term of this sequence is a(10077) = 96709.
%H Nathaniel Johnston, <a href="/A036329/b036329.txt">Table of n, a(n) for n = 1..10077</a> (full sequence)
%p isA036329 := 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))=5, n, NULL): end: l:=[seq(isA036329(n),n=2..378)]; # _Nathaniel Johnston_, Jun 22 2011
%t jpf5Q[n_]:=Total[Flatten[Table[IntegerLength[#[[1]]],{#[[2]]}]&/@ FactorInteger[ n]]]==5; Select[Range[400],CompositeQ[#]&&jpf5Q[#]&] (* _Harvey P. Dale_, Jan 09 2015 *)
%Y Cf. A036326-A036334.
%K nonn,base,fini,full,easy
%O 1,1
%A _Patrick De Geest_, Dec 15 1998
|
