|
|
A173655
|
|
Triangle read by rows: T(n,k) = prime(n) mod prime(k), 0 < k <= n.
|
|
6
|
|
|
0, 1, 0, 1, 2, 0, 1, 1, 2, 0, 1, 2, 1, 4, 0, 1, 1, 3, 6, 2, 0, 1, 2, 2, 3, 6, 4, 0, 1, 1, 4, 5, 8, 6, 2, 0, 1, 2, 3, 2, 1, 10, 6, 4, 0, 1, 2, 4, 1, 7, 3, 12, 10, 6, 0, 1, 1, 1, 3, 9, 5, 14, 12, 8, 2, 0, 1, 1, 2, 2, 4, 11, 3, 18, 14, 8, 6, 0, 1, 2, 1, 6, 8, 2, 7, 3, 18, 12, 10, 4, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins as:
0;
1, 0;
1, 2, 0;
1, 1, 2, 0;
1, 2, 1, 4, 0;
1, 1, 3, 6, 2, 0;
1, 2, 2, 3, 6, 4, 0;
1, 1, 4, 5, 8, 6, 2, 0;
1, 2, 3, 2, 1, 10, 6, 4, 0;
1, 2, 4, 1, 7, 3, 12, 10, 6, 0;
|
|
MAPLE
|
A173655 := proc(n, k) ithprime(n) mod ithprime(k) ; end proc:
|
|
MATHEMATICA
|
Flatten[Table[Mod[Prime[n], Prime[Range[n]]], {n, 15}]]
|
|
PROG
|
(Magma)
A173655:= func< n, k | NthPrime(n) mod NthPrime(k) >;
(SageMath)
def A173655(n, k): return nth_prime(n)%nth_prime(k)
flatten([[A173655(n, k) for k in range(1, n+1)] for n in range(1, 13)]) # G. C. Greubel, Apr 10 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|