A093441 Lexicographically earliest sequence of primes such that a(n) - 1 == 0 (mod a(n - 1) - 1) where a(n) - 1 is a squarefree number; a(1) = 3.

3, 7, 31, 211, 2311, 43891, 1272811, 16546531, 976245271, 36121074991, 1119753324691, 52628406260431, 3526103219448811, 186883470630786931, 7662222295862264131, 743235562698639620611, 54256196077000692304531, 6130950156701078230411891, 631487866140211057732424671

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..341

Mathematica

a[1] = 3; a[n_] := a[n] = Block[{k = m = a[n - 1] - 1}, k *= 2; While[ !PrimeQ[k + 1] || !SquareFreeQ[k], k += m]; k + 1]; Table[ a[n], {n, 17}] (* Robert G. Wilson v, Apr 30 2004 *)

Crossrefs

Cf. A073918, A093442.

Distinct from A073918.

Cf. A083772. - R. J. Mathar, Sep 05 2008

Sequence in context: A289127 A289125 A083772 * A087864 A066676 A073917

Adjacent sequences: A093438 A093439 A093440 * A093442 A093443 A093444

Keyword

nonn

Author

Amarnath Murthy, Apr 01 2004

Extensions

a(7)-a(17) from Robert G. Wilson v, Apr 30 2004

a(18)-a(19) from Amiram Eldar, Jan 19 2023

Status

approved