login
A168144
First differences of A168143 which are different from 1, incremented by 14.
0
19, 23, 31, 47, 79
OFFSET
1,1
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, Generalizations of the Rowland theorem, arXiv:0911.3491 [math.NT], 2009-2010.
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 *)
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 19 2009
EXTENSIONS
Corrected and edited by Eric Rowland, Jan 27 2019
STATUS
approved