OFFSET
1,10
COMMENTS
For a given n, A(n, k) is the sequence that gives the maximum exponent in the prime factorization of the largest prime(n)-smooth divisor of k.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10011 (first 141 antidiagonals, flattened)
FORMULA
EXAMPLE
Array begins:
n | n-th row
---+-----------------------------
1 | 0, 1, 0, 2, 0, 1, 0, 3, 0, 1
2 | 0, 1, 1, 2, 0, 1, 0, 3, 2, 1
3 | 0, 1, 1, 2, 1, 1, 0, 3, 2, 1
4 | 0, 1, 1, 2, 1, 1, 1, 3, 2, 1
5 | 0, 1, 1, 2, 1, 1, 1, 3, 2, 1
6 | 0, 1, 1, 2, 1, 1, 1, 3, 2, 1
7 | 0, 1, 1, 2, 1, 1, 1, 3, 2, 1
8 | 0, 1, 1, 2, 1, 1, 1, 3, 2, 1
9 | 0, 1, 1, 2, 1, 1, 1, 3, 2, 1
10 | 0, 1, 1, 2, 1, 1, 1, 3, 2, 1
MATHEMATICA
A[n_, k_] := Max[IntegerExponent[k, Prime[Range[n]]]]; Table[A[n - k + 1, k], {n, 1, 14}, {k, 1 n}] // Flatten
PROG
(PARI) A(n, k) = vecmax(apply(x -> valuation(k, x), primes(n)));
CROSSREFS
KEYWORD
AUTHOR
Amiram Eldar, Aug 19 2024
STATUS
approved