A152755 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A152755

Triangle read by rows: row n gives the vector b[n] where b[0] = {-1}; b[1] = {1, -1}; b[n] = prime[n + 2 ], -prime[n + 2] + n - 1, -1,-1, ..., -1.

-1, 1, -1, 7, -6, -1, 11, -9, -1, -1, 13, -10, -1, -1, -1, 17, -13, -1, -1, -1, -1, 19, -14, -1, -1, -1, -1, -1, 23, -17, -1, -1, -1, -1, -1, -1, 29, -22, -1, -1, -1, -1, -1, -1, -1, 31, -23, -1, -1, -1, -1, -1, -1, -1, -1, 37, -28, -1, -1, -1, -1, -1, -1, -1, -1, -1

(list; table; graph; refs; listen; history; text; internal format)

OFFSET

0,4

LINKS

G. C. Greubel, Table of n, a(n) for the first 51 rows, flattened

EXAMPLE

{-1},

{1, -1},

{7, -6, -1},

{11, -9, -1, -1},

{13, -10, -1, -1, -1},

{17, -13, -1, -1, -1, -1},

{19, -14, -1, -1, -1, -1, -1},

{23, -17, -1, -1, -1, -1, -1, -1},

{29, -22, -1, -1, -1, -1, -1, -1, -1},

{31, -23, -1, -1, -1, -1, -1, -1, -1, -1},

{37, -28, -1, -1, -1, -1, -1, -1, -1, -1, -1}

MATHEMATICA

b[0] = {-1}; b[1] = {1, -1};

b[n_] := b[n] = Join[{Prime[n + 2 ]}, {-Prime[ n + 2] + (n - 1)}, Table[ -1, {i, 2, Length[b[n - 1]]}]];

Table[b[n], {n, 0, 10}]; Flatten[%]

CROSSREFS

Sequence in context: A347074 A112252 A118321 * A152722 A100082 A152861

Adjacent sequences: A152752 A152753 A152754 * A152756 A152757 A152758

KEYWORD

tabl,sign

AUTHOR

Roger L. Bagula and Alexander R. Povolotsky, Dec 12 2008

EXTENSIONS

Edited by N. J. A. Sloane, Dec 13 2008

STATUS

approved