%I #10 Jan 25 2022 12:23:39

%S 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,

%T 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,

%U 19379,3,7,5,3,137,3,13,38921,3,17,3,7,77867,3,5,3

%N Omit the 1s from first differences of A084663.

%C Terms greater than 1 in A134744.

%H Reinhard Zumkeller, <a href="/A231900/b231900.txt">Table of n, a(n) for n = 1..120</a>

%H Eric S. Rowland, <a href="https://arxiv.org/abs/0710.3217">A natural prime-generating recurrence</a>, arXiv:0710.3217 [math.NT], 2007-2008.

%t 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 *)

%o (Haskell)

%o a231900 n = a231900_list !! (n-1)

%o a231900_list = filter (> 1) a134744_list

%Y Cf. A137613.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Nov 15 2013