A285322 Transpose of square array A285321.

2, 4, 3, 8, 9, 6, 16, 27, 12, 5, 32, 81, 18, 25, 10, 64, 243, 24, 125, 20, 15, 128, 729, 36, 625, 40, 45, 30, 256, 2187, 48, 3125, 50, 75, 60, 7, 512, 6561, 54, 15625, 80, 135, 90, 49, 14, 1024, 19683, 72, 78125, 100, 225, 120, 343, 28, 21

Offset: 1

Author

Antti Karttunen, Apr 17 2017

Keywords

• nonn
• tabl

Comments

See A285321.

Crossrefs

Transpose: A285321.

Programs

Python

from functools import reduce
from operator import mul
from sympy import prime, primefactors
def a019565(n): return reduce(mul, (prime(i+1) for i, v in enumerate(bin(n)[:1:-1]) if v == '1')) if n > 0 else 1 # This function from Chai Wah Wu
def a007947(n): return 1 if n<2 else reduce(mul, primefactors(n))
def a065642(n):
    if n==1: return 1
    r=a007947(n)
    n = n + r
    while a007947(n)!=r:
        n+=r
    return n
def A(n, k): return a019565(k) if n==1 else a065642(A(n - 1, k))
for n in range(1, 11): print([A(n - k + 1, k) for k in range(1, n + 1)]) # Indranil Ghosh, Apr 19 2017

Scheme

(define (A285322 n) (A285321bi (A004736 n) (A002260 n))) ;; For A285321bi, see A285321.