|
| |
|
|
A036329
|
|
Composite numbers n such that juxtaposition of prime factors of n has length 5.
|
|
1
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
The last term of this sequence is a(10077) = 96709.
|
|
|
LINKS
|
|
|
|
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 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,base,fini,full,easy
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
