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,1

Comments

See A285321.

Links

Table of n, a(n) for n=1..55.

Prog

(Scheme) (define (A285322 n) (A285321bi (A004736 n) (A002260 n))) ;; For A285321bi, see A285321.
(Python)
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

Crossrefs

Transpose: A285321.

Sequence in context: A163511 A332817 A332214 * A129593 A338619 A279355

Adjacent sequences: A285319 A285320 A285321 * A285323 A285324 A285325

Keyword

nonn,tabl

Author

Antti Karttunen, Apr 17 2017

Status

approved