|
Search: id:A105160
|
|
|
| A105160 |
|
A triangular array made from a negative permutation (intention to sum). |
|
+0
1
|
|
| 6, 4, 6, 14, 21, 35, 10, 15, 25, 35, 26, 39, 65, 91, 143, 22, 33, 55, 77, 121, 143, 38, 57, 95, 133, 209, 247, 323, 34, 51, 85, 119, 187, 221, 289, 323, 58, 87, 145, 203, 319, 377, 493, 551, 667, 46, 69, 115, 161, 253, 299, 391, 437, 529, 667, 74, 111, 185, 259, 407
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Triangle begins ( modulo 3 plot has an chaotic design) {-6} {4, 6} {-14, -21, -35} {10, 15, 25, 35} {-26, -39, -65, -91, -143} {22, 33, 55, 77, 121, 143}
|
|
FORMULA
|
a(n) = if Mod[Prime[n], 2]=0 then Prime[n-1] else -Prime[n] T(n, k)=a(k)*Prime[n]
|
|
MATHEMATICA
|
a[1] = -Prime[2] a[n_] := a[n] = If[Mod[n, 2] == 0, Prime[n - 1], -Prime[n + 1]] digits = 25 aa = Table[Table[Prime[n]*a[m], {n, 1, m}], {m, 1, digits}] Flatten[Abs[aa]]
|
|
CROSSREFS
|
Sequence in context: A065445 A164293 A141796 this_sequence A021611 A011425 A011486
Adjacent sequences: A105157 A105158 A105159 this_sequence A105161 A105162 A105163
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Apr 10 2005
|
|
|
Search completed in 0.002 seconds
|
