A121799 Values of k from A061092.

1, 1, 2, 4, 2, 12, 4, 8, 26, 2, 8, 18, 16, 2, 6, 12, 4, 32, 30, 6, 40, 60, 22, 12, 208, 18, 48, 168, 18, 76, 6, 232, 48, 4, 50, 78, 28, 236, 68, 1026, 10, 162, 6, 138, 162, 48, 120, 330, 82, 414, 130, 188, 164, 6, 6, 100, 126, 10, 36, 40, 48, 94, 14, 218, 954

Offset: 1

Author

Zak Seidov, Oct 26 2005, Dec 14 2006

Keywords

• nonn

Comments

A061092 is: a(0) = 1; for n>0 a(n) is the smallest prime, larger than a(n-1), of the form k*a(n-1) + 1. - Corrected by Zak Seidov, Oct 03 2015

Links

• Ken Takusagawa, Table of n, a(n) for n = 1..3000 (terms 1..200 from T. D. Noe)

Crossrefs

Cf. A061092, A072532, A113334.

Programs

Mathematica

a = {2}; b = {1}; Do[k = 1; p = a[[n - 1]]; While[! PrimeQ[k p + 1], k++]; AppendTo[a, k p + 1]; AppendTo[b, k], {n, 2, 60}]; b (* Michael De Vlieger, Oct 03 2015, after Robert G. Wilson v at A061092 *)

Formula

a(n) = (A061092(n)-1)/A061092(n-1). - Zak Seidov, Oct 03 2015

Extensions

Definition corrected by Ken Takusagawa, Jan 17 2006

Corrected and extended by T. D. Noe, Mar 10 2007

Edited by N. J. A. Sloane, Aug 08 2008 at the suggestion of R. J. Mathar