A036329 Composite numbers n such that juxtaposition of prime factors of n has length 5.

32, 48, 72, 80, 88, 104, 108, 112, 120, 132, 136, 152, 156, 162, 168, 180, 184, 198, 200, 204, 220, 228, 232, 234, 242, 243, 248, 252, 260, 270, 276, 280, 286, 296, 297, 300, 306, 308, 328, 330, 338, 340, 342, 344, 348, 351, 363, 364, 372, 374, 376, 378

Offset: 1

Author

Patrick De Geest, Dec 15 1998

Keywords

• nonn
• base
• fini
• full
• easy

Comments

The last term of this sequence is a(10077) = 96709.

Links

• Nathaniel Johnston, Table of n, a(n) for n = 1..10077 (full sequence)

Crossrefs

Cf. A036326-A036334.

Programs

Maple

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

Mathematica

jpf5Q[n_]:=Total[Flatten[Table[IntegerLength[#[[1]]],{#[[2]]}]&/@ FactorInteger[ n]]]==5; Select[Range[400],CompositeQ[#]&&jpf5Q[#]&] (* Harvey P. Dale, Jan 09 2015 *)