A105155 A triangular array made from a negative 6-fold permutation product.

10, 6, 9, 4, 6, 10, 14, 21, 35, 49, 22, 33, 55, 77, 121, 26, 39, 65, 91, 143, 169, 34, 51, 85, 119, 187, 221, 289, 38, 57, 95, 133, 209, 247, 323, 361, 46, 69, 115, 161, 253, 299, 391, 437, 529, 58, 87, 145, 203, 319, 377, 493, 551, 667, 841, 62, 93, 155, 217, 341, 403

Offset

1,1

Links

Table of n, a(n) for n=1..61.

Example

Triangle begins:
   10;
    6,   9;
   -4,  -6, -10;
  -14, -21, -35, -49;
   22,  33,  55,  77, 121;
   26,  39,  65,  91, 143, 169;
  ...

Mathematica

a[n_] := -Prime[n] /; 10 - Mod[Prime[n], 10] == 1;
a[n_] := -Prime[n] /; 10 - Mod[Prime[n], 10] == 3;
a[n_] := Prime[ n] /; (10 - Mod[Prime[n], 10] == 7) || (10 - Mod[Prime[n], 10] == 9);
a[1] = 5; a[3] = -2;
digits = 200
aa = Table[Abs[Apply[Plus, Table[Prime[n]*a[m], {n, 1, m}]]], {m, 1, digits}]

Crossrefs

Sequence in context: A102690 A076366 A304879 * A072930 A071358 A167873

Adjacent sequences: A105152 A105153 A105154 * A105156 A105157 A105158

Keyword

nonn,tabl,uned

Author

Roger L. Bagula, Apr 10 2005

Status

approved