A168144 First differences of A168143 which are different from 1, incremented by 14.

19, 23, 31, 47, 79

Offset: 1

Author

Vladimir Shevelev, Nov 19 2009

Keywords

• nonn

Comments

All terms of the sequence are primes greater than 17.

Are there more than 5 terms?

Links

• E. S. Rowland, A natural prime-generating recurrence, Journal of Integer Sequences, 11 (2008), Article 08.2.8.
• V. Shevelev, An infinite set of generators of primes based on the Rowland idea and conjectures concerning twin primes, arXiv:0910.4676 [math.NT], 2009.
• V. Shevelev, Generalizations of the Rowland theorem, arXiv:0911.3491 [math.NT], 2009-2010.

Crossrefs

Cf. A168143, A167495, A167494, A167493, A167197, A167195, A167170, A167168, A106108, A132199, A167054, A167053, A166944, A166945, A116533, A163961, A163963, A084662, A084663, A134162, A135506, A135508, A118679, A120293.

Programs

Mathematica

A168143[17] = 37;
A168143[n_] := A168143[n] = If[GCD[n, A168143[n - 1]] > 1 && FactorInteger[n][[1, 1]] > 17, 3 n - 14, A168143[n - 1] + 1]
DeleteCases[Differences[A168143 /@ Range[17, 100]], 1] + 14 (* Eric Rowland, Jan 27 2019 *)

Extensions

Corrected and edited by Eric Rowland, Jan 27 2019