OFFSET
1,2
LINKS
G. C. Greubel, Rows n = 1..50 of the triangle, flattened
FORMULA
EXAMPLE
Triangle begins:
1;
2, 1;
3, 4, 1;
4, 2, 4, 1;
6, 3, 9, 5, 1;
7, 10, 9, 12, 4, 1;
9, 13, 16, 4, 13, 16, 1;
10, 5, 6, 11, 9, 7, 4, 1;
12, 6, 13, 9, 2, 12, 18, 16, 1;
MATHEMATICA
Flatten[Table[PowerMod[2, Prime[n]-Prime[k], Prime[n]], {n, 20}, {k, n}]] (* Harvey P. Dale, May 10 2014 *)
PROG
(Magma)
A177226:= func< n, k | Modexp(2, NthPrime(n) - NthPrime(k), NthPrime(n)) >;
[A177226(n, k): k in [1..n], n in [1..12]]; // G. C. Greubel, Apr 09 2024
(SageMath)
def A177226(n, k): return pow(2, nth_prime(n) - nth_prime(k), nth_prime(n))
flatten([[A177226(n, k) for k in range(1, n+1)] for n in range(1, 13)]) # G. C. Greubel, Apr 09 2024
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Juri-Stepan Gerasimov, Dec 10 2010
EXTENSIONS
Corrected by D. S. McNeil, Dec 10 2010
STATUS
approved