1,1

d[n_] := Block[{k = n}, Det[ Join[ {Table[2i, {i, 1, k}]}, Table[ Take[ Prime[j]*Select[ Range[1000], GCD[ Prime[k] #, Product[ Prime[i], {i, 1, j - 1}]] == 1 &], k], {j, 2, k}]]]]; Table[ d[n], {n, 1, 15}]

Cf. A083140.

Sequence in context: A086332 A089039 A108640 this_sequence A001577 A077175 A139771

Adjacent sequences: A084968 A084969 A084970 this_sequence A084972 A084973 A084974

sign

Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 15 2003