OFFSET
1,10
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
Triangle begins:
0;
0, 1;
0, 1, 1;
0, 1, 1, 3;
0, 1, 1, 3, 1;
0, 1, 1, 1, 1, 1;
MAPLE
A174624 := proc(n, k) ithprime(n) mod (2^numtheory[bigomega](k)) ; end proc:
seq(seq(A174624(n, k), k=1..n), n=1..15) ; # R. J. Mathar, Nov 30 2010
MATHEMATICA
Table[Mod[Prime[n], 2^PrimeOmega[k]], {n, 20}, {k, n}]//Flatten (* Harvey P. Dale, Jun 02 2016 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Juri-Stepan Gerasimov, Nov 29 2010
STATUS
approved