OFFSET
1,4
COMMENTS
A tableau is normal if its entries span an initial interval of positive integers. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
MATHEMATICA
a[n_]:=If[n===1, 1, Sum[a[n/q*Times@@Cases[FactorInteger[q], {p_, k_}:>If[p===2, 1, NextPrime[p, -1]^k]]], {q, Rest[Divisors[n]]}]];
Array[a, 100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 15 2018
STATUS
approved