reviewed

approved

proposed

reviewed

editing

proposed

Robert Israel, <a href="/A277729/b277729.txt">Table of n, a(n) for n = 2..10032</a>> (rows 2 to 410, flattened)

Needs a b-file.

Robert Israel, <a href="/A277729/b277729.txt">Table of n, a(n) for n = 2..10032</a>

N:= 30: # for rows 2 to N

res:= 1; p:= 3; R:= <1>;

for n from 2 to N do

pp:= nextprime(p);

d:= pp - p;

p:= pp;

if d <= LinearAlgebra:-Dimension(R) then

R[d]:= R[d]+1

else

R(d):= 1

fi;

res:= res, op(convert(R, list));

od:

res; # Robert Israel, Nov 16 2016

approved

editing

editing

approved

Needs a b-file.

1, 3, 0, 1, <- gaps in 2,3,5,7,11,13 are 1, 2 (3 times), 4 (once)

approved

editing

editing

approved

1, 6, 0, 4, 0, 2,1, 6, 0, 5, 0, 2,1, 6, 0, 5, 0, 3,1, 6, 0, 5, 0, 4,1, 7, 0, 5, 0, 4,1, 7, 0, 5, 0, 5,1, 7, 0, 6, 0, 5,1, 8, 0, 6, 0, 5,1, 8, 0, 6, 0, 6,1, 8, 0, 7, 0, 6,1, 8, 0, 7, 0, 7,

1, 6, 0, 4, 0, 2,

1, 6, 0, 5, 0, 2,

1, 6, 0, 5, 0, 3,

1, 6, 0, 5, 0, 4,

1, 7, 0, 5, 0, 4,

1, 7, 0, 5, 0, 5,

1, 7, 0, 6, 0, 5,

1, 8, 0, 6, 0, 5,

approved

editing

editing

approved