A087376 Leading diagonal of A087377.

1, 2, 6, 7, 14, 7, 30, 24, 30, 19, 60, 23, 72, 33, 46, 48, 90, 34, 124, 51, 82, 64, 144, 67, 148, 78, 118, 87, 240, 58, 232, 113, 150, 114, 200, 88, 288, 165, 202, 138, 332, 91, 352, 167, 202, 163, 384, 136, 372, 143, 258, 195, 500, 142, 360, 207, 318, 226, 552, 137

Offset: 1

Author

Amarnath Murthy, Sep 09 2003

Keywords

• nonn

Links

• Ivan Neretin, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A034693, A087377.

Programs

Mathematica

f = Function[n, k = cnt = 0; While[cnt < n, k++; If[PrimeQ[k n + 1], cnt++]]; k]; Table[f[n], {n, 60}] (* Ivan Neretin, May 22 2015 *)

Formula

Conjecture: a(n) < n^2.

Extensions

More terms from David Wasserman, May 24 2005