login
A284270
Square array A(r,c) = A048720(A065621(r), c) mod r, read by descending antidiagonals as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.
6
0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 1, 2, 0, 0, 0, 0, 3, 4, 4, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 2, 2, 1, 0, 7, 0, 0, 2, 0, 1, 0, 2, 0, 5, 6, 0, 0, 0, 0, 0, 0, 4, 0, 7, 2, 9, 0, 0, 0, 0, 4, 0, 2, 0, 1, 6, 7, 4, 0, 0, 1, 0, 1, 4, 0, 0, 8, 4, 0, 8, 8, 0, 0, 0, 0, 4, 0, 4, 0, 5, 4, 3, 0, 3, 8, 0, 0, 2, 0, 2, 0, 6, 0, 7, 2, 0, 4, 11, 2, 4
OFFSET
1,9
FORMULA
A(r,c) = A277320(r,c) mod r = A048720(A065621(r), c) mod r.
EXAMPLE
The top left 17 x 19 corner of the array:
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1, 2, 0, 1, 0, 0, 0, 2, 0, 0, 1, 0, 2, 0, 0, 1, 2
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
3, 1, 3, 2, 2, 1, 0, 4, 1, 4, 2, 2, 1, 0, 0, 3, 1
2, 4, 0, 2, 0, 0, 0, 4, 0, 0, 2, 0, 4, 0, 0, 2, 4
4, 1, 1, 2, 4, 2, 0, 4, 6, 1, 6, 4, 1, 0, 0, 1, 5
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
7, 5, 7, 1, 8, 5, 7, 2, 2, 7, 2, 1, 1, 5, 0, 4, 6
6, 2, 6, 4, 4, 2, 0, 8, 2, 8, 4, 4, 2, 0, 0, 6, 2
9, 7, 0, 3, 0, 0, 5, 6, 0, 0, 8, 0, 1, 10, 0, 1, 0
4, 8, 0, 4, 0, 0, 0, 8, 0, 0, 4, 0, 8, 0, 0, 4, 8
8, 3, 11, 6, 0, 9, 3, 12, 7, 0, 8, 5, 12, 6, 0, 11, 0
8, 2, 2, 4, 8, 4, 0, 8, 12, 2, 12, 8, 2, 0, 0, 2, 10
4, 8, 8, 1, 5, 1, 1, 2, 4, 10, 8, 2, 4, 2, 0, 4, 6
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
15, 13, 15, 9, 7, 13, 15, 1, 16, 14, 16, 9, 7, 13, 15, 2, 2
14, 10, 14, 2, 16, 10, 14, 4, 4, 14, 4, 2, 2, 10, 0, 8, 12
17, 15, 13, 11, 7, 7, 0, 3, 0, 14, 6, 14, 16, 0, 13, 6, 3
PROG
(Scheme)
(define (A284270 n) (A284270bi (A002260 n) (A004736 n)))
(define (A284270bi row col) (modulo (A277320bi row col) row)) ;; For A277320bi, see in A277320.
CROSSREFS
Cf. A048720, A065621, A115872, A277320, A284269 (transpose), A284273 (main diagonal), A284552 (column 1).
Row 3: A284557.
Sequence in context: A074039 A047764 A022883 * A337542 A282568 A389171
KEYWORD
nonn,tabl,base
AUTHOR
Antti Karttunen, Apr 10 2017
STATUS
approved