[go: up one dir, main page]

login
A285322
Transpose of square array A285321.
3
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.
PROG
(Scheme) (define (A285322 n) (A285321bi (A004736 n) (A002260 n))) ;; For A285321bi, see A285321.
(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
CROSSREFS
Transpose: A285321.
Sequence in context: A163511 A332817 A332214 * A129593 A338619 A279355
KEYWORD
nonn,tabl,changed
AUTHOR
Antti Karttunen, Apr 17 2017
STATUS
approved