login
A105155
A triangular array made from a negative 6-fold permutation product.
1
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
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
KEYWORD
nonn,tabl,uned
AUTHOR
Roger L. Bagula, Apr 10 2005
STATUS
approved