sample = {1, 2, 3, 4}

sample = Table[j, {j, 1, 50, 1}]

sample = Table[j, {j, 1, 50, 1}];

Table[2*j + 1, {j, 0, 50, 1}]

Table[j, {j, 1, 101, 2}]

Table[{j, j*2}, {j, 1, 4, 1}]

MatrixForm[%]

sample = Table[3*j, {j, 2, 14, 3}]

Listplot[sample]

ListPlot[sample]

ListPlot[sample, PlotJoined -> True]

newsample = Table[{10*j, 3*j}, {j, 2, 14, 3}]

ListPlot[newsample]

xdata = Table[10*j, {j, 1, 5, 1}]

newsample = 
      Table[{xdata[[j]], sample[[j]]}, {j, 1, 5, 1}]

ListPlot[newsample]

sample

3 + sample

sample

sample + sample

sample*sample

sample/sample

sample[[4]]

3 + sample[[3]]

sample[[3]] = 10

sample

sample = Table[3*j, {j, 2, 14, 3}]

Append[sample, 7]

sample

Prepend[sample, 7]

sample

Insert[sample, 7, 2]

sample

Length[sample]

For[j = 2, j ≤ Length[sample], j = j + 1, 
      sample[[j]] = sample[[j - 1]]*3]

sample

sample = Table[3*j, {j, 2, 14, 3}]

For[j = 2, j ≤ Length[sample], 
      j = j + 1, {sample[[j]] = sample[[j - 1]]*3, 
        sample[[1]] = sample[[1]] + j}]

sample

ylist = Table[4, {k, 1, 2001, 1}];

For[j = 1, j ≤ Length[ylist] - 1, j = j + 1, 
      ylist[[j + 1]] = 
        ylist[[j]] +  .001*(1.2*ylist[[j]] +  .3)]

data = 
        Table[{ .001*(k - 1), ylist[[k]]}, {k, 1, Length[ylist], 
            1}];

ListPlot[data, PlotJoined -> True]

m = {{-2, 1}, {1, -2}}

Eigenvalues[m]

Eigenvectors[m]

m = {{1, 2, 3}, {1, 2, 3}}

n = {{1, 2}, {1, 2}}

m . n

m*n

m.*n

m = {{1, 2, 3}, {1, 2, 3}}

n = {{1, 2}, {1, 2}, {1, 2}}

m . n

m*n

m.*n