A231900 Omit the 1s from first differences of A084663.

2, 7, 13, 5, 29, 3, 59, 3, 7, 5, 3, 131, 3, 263, 3, 17, 3, 5, 3, 19, 569, 3, 17, 3, 13, 7, 5, 3, 1181, 3, 17, 3, 2381, 3, 11, 3, 5, 3, 7, 4787, 3, 5, 3, 11, 3, 53, 3, 11, 3, 13, 19, 9689, 3, 19379, 3, 7, 5, 3, 137, 3, 13, 38921, 3, 17, 3, 7, 77867, 3, 5, 3

Offset: 1

Author

Reinhard Zumkeller, Nov 15 2013

Keywords

• nonn

Comments

Terms greater than 1 in A134744.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..120
• Eric S. Rowland, A natural prime-generating recurrence, arXiv:0710.3217 [math.NT], 2007-2008.

Crossrefs

Cf. A137613.

Programs

Haskell

a231900 n = a231900_list !! (n-1)
a231900_list = filter (> 1) a134744_list

Mathematica

DeleteCases[Differences[RecurrenceTable[{a[1]==8,a[n]==a[n-1]+GCD[ a[n-1],n]},a,{n,100000}]],1] (* Harvey P. Dale, Apr 12 2016 *)