login
A318954
Minimum shifted Heinz number of a strict factorization of n into factors > 1.
2
1, 2, 3, 5, 7, 6, 13, 10, 19, 14, 29, 15, 37, 26, 21, 34, 53, 33, 61, 35, 39, 58, 79, 30, 89, 74, 57, 65, 107, 42, 113, 85, 87, 106, 91, 66, 151, 122, 111, 70, 173, 78, 181, 145, 129, 158, 199, 102, 223, 161, 159, 185, 239, 114, 203, 130, 183, 214, 271, 105
OFFSET
1,2
COMMENTS
The shifted Heinz number of a factorization (y_1, ..., y_k) is prime(y_1 - 1) * ... * prime(y_k - 1).
EXAMPLE
The strict factorizations of 60 are (2*3*10), (2*5*6), (2*30), (3*4*5), (3*20), (4*15), (5*12), (6*10), (60), with shifted Heinz numbers 138, 154, 218, 105, 201, 215, 217, 253, 277 respectively, so a(60) = 105.
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[(Prepend[#1, d]&)/@Select[facs[n/d], Min@@#1>=d&], {d, Rest[Divisors[n]]}]];
Table[Min[Times@@Prime/@(#-1)&/@Select[facs[n], UnsameQ@@#&]], {n, 100}]
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 05 2018
STATUS
approved