A125716 Numbers n such that A120292(n) = 1.

2, 3, 5, 7, 8, 9, 14, 15, 16, 17, 23, 31, 34, 35, 39, 41, 43, 50, 51, 56, 66, 67, 70, 71, 75, 77, 92, 96, 97, 98, 101, 107, 112, 115, 117, 123, 131, 132, 153, 155, 156, 160, 163, 165, 166, 170, 172, 182, 185, 196, 198, 200, 203, 204, 207, 212, 218, 231, 243, 246, 249

Offset: 1

Author

Alexander Adamchuk, Feb 02 2007

Keywords

• hard
• nonn

Comments

A120292(n) = {2, 1, 1, 5, 1, 23, 1, 1, 1, 23, 17, 13, 5, 1, 1, 1, 1, 37, ...} Absolute value of numerator of determinant of n X n matrix with elements M[i,j] = Prime[i]/(1+Prime[i]) if i=j and 1 otherwise.

Crossrefs

Cf. A120292.

Programs

Mathematica

Do[f=Abs[Numerator[Det[DiagonalMatrix[Table[Prime[i]/(Prime[i]+1)-1,{i,1,n}]]+1]]];If[ f == 1, Print[n]],{n,1,256}]