A177416 Triangle read by rows: T(n,k) = 2^A141468(n) mod prime(k).

1, 0, 2, 0, 1, 1, 0, 1, 4, 1, 0, 1, 1, 4, 3, 0, 2, 2, 1, 6, 5, 0, 1, 4, 2, 1, 10, 4, 0, 1, 1, 1, 4, 1, 16, 11, 0, 1, 4, 4, 5, 4, 13, 6, 8, 0, 2, 3, 1, 10, 8, 9, 12, 16, 27, 0, 1, 1, 2, 9, 3, 1, 5, 9, 25, 2, 0, 1, 4, 1, 3, 12, 4, 1, 13, 13, 8, 36, 0, 1, 1, 4, 1, 9, 16, 4, 6, 23, 1, 33, 1, 0, 2, 2, 1, 2, 5, 15, 8, 12, 17, 2, 29, 2, 42

Offset: 1

Author

Juri-Stepan Gerasimov, Dec 10 2010

Keywords

• nonn
• tabl
• easy

Examples

			The triangle begins at row n = 1 with columns 1 <= k <= n:
  1;
  0, 2;
  0, 1, 1;
  0, 1, 4, 1;
  0, 1, 1, 4, 3;
  0, 2, 2, 1, 6, 5;
		

Crossrefs

Cf. A000079, A141468, A174620.

Programs

Mathematica

MapIndexed[PowerMod[2, #, Prime[Range[First[#2]]]] &, Join[{0, 1}, Select[Range[25], CompositeQ]]] (* Paolo Xausa, Jul 01 2024 *)

Extensions

A 23 replaced with 33 by R. J. Mathar, Dec 13 2010