OFFSET
0,3
LINKS
Eric Weisstein's World of Mathematics, Prime Factor
Eric Weisstein's World of Mathematics, Tetrahedral Number
EXAMPLE
a(4) = 56, because 56 is a tetrahedral number with 4 prime factors (counted with multiplicity) {2, 2, 2, 7} and this is the smallest such number.
MATHEMATICA
t[k_] := k*(k + 1)*(k + 2)/6; a[n_] := Module[{k = 1, tk}, While[PrimeOmega[tk = t[k]] != n, k++]; tk]; a[1] = -1; Array[a, 26, 0] (* Amiram Eldar, Dec 09 2022 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Dec 06 2022
STATUS
approved