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
KEYWORD
AUTHOR
Roger L. Bagula, Apr 10 2005
STATUS
approved