

A318953


Maximum Heinz number of a strict factorization of n into factors > 1.


9



1, 3, 5, 7, 11, 15, 17, 21, 23, 33, 31, 39, 41, 51, 55, 57, 59, 69, 67, 87, 85, 93, 83, 111, 97, 123, 115, 129, 109, 165, 127, 159, 155, 177, 187, 195, 157, 201, 205, 231, 179, 255, 191, 237, 253, 249, 211, 285, 227, 319, 295, 303, 241, 345, 341, 357, 335, 327
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

The Heinz number of a factorization (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).


LINKS

Table of n, a(n) for n=1..58.


EXAMPLE

The strict factorizations of 80 are (2*4*10), (2*5*8), (2*40), (4*20), (5*16), (8*10), (80), with Heinz numbers 609, 627, 519, 497, 583, 551, 409 respectively, so a(80) = 627.


MATHEMATICA

facs[n_]:=If[n<=1, {{}}, Join@@Table[(Prepend[#1, d]&)/@Select[facs[n/d], Min@@#1>=d&], {d, Rest[Divisors[n]]}]];
Table[Max[Times@@Prime/@#&/@Select[facs[n], UnsameQ@@#&]], {n, 100}]


CROSSREFS

Cf. A001055, A007716, A045778, A056239, A080688, A162247, A215366, A246868, A318871, A318954.
Sequence in context: A085493 A139252 A076245 * A172308 A190812 A238738
Adjacent sequences: A318950 A318951 A318952 * A318954 A318955 A318956


KEYWORD

nonn


AUTHOR

Gus Wiseman, Sep 05 2018


STATUS

approved



